




























ftSHt ct* j) => 



o 

• -dVi 'GAME PARAMETERS M ! ! ) ,,,■ . 

IM C“ PRTBM, ( PLAYER-REVEALER--HOSTAGE MAX TIME EASIER.) 
; 2:i80 H-P-D < HOSTAGE TO PLAYER DISTANCE ) 

■■ 3H& O .HtH-D. < HOSTAGE TO HOSTAGE DISTANCE ). 

C= ONTOPLMT ( WITHIN SPACING > 

5?feS MAXAS8M ( MAX ASSIMILATION DISTANCE > 

61 . 

7!7 C= MCOLS 5 C= NROWS 
8INC0LS NROWS * C~ NNODES 
9 ! 

10 1 .> 

11! 

12 ! 

13! 

, 14! 




FILE * TST 

BLK= 0 " 

0!( TEST SHIT TO DUMP NEAT OVECTOR STUFF ) 

1. ! HEX V” VERBADR 

2ISUBR NEWINTR B I...DAX, B I NX, A L MOV, B LDAX, B I NX, A 
3!VERBADR SHLD, PCML, 

4!CODE ZAMMER NEWINTR Y LXIX, NEXT 

5!s LSAT ZAMMER VERBADR H. VERBADR 1+ SPACE H, 5 

6!DECIMAL ?S 

7!s VD CR ." C~ " DUP NOWC OVB© . 

8!," R- " DUP NOWR OVB© 

9i," D= " DUP NOWD OVB@ . 

10!." DIS= ,! DUP DISTANCE 0V@ H. 

11!." DD= " DUP DELTA!) I ST OV© H. . 

12!.” MAXD“ " DUP MAXDIST OVBS H. 

5.3!." X= " DUP VX Civ© H. 

14!." Y~- 11 VY OVQ H. CR 5 


H MOV 

* 





FILE - VE 
BLK= -0 • 

0!( CUSTOM VECTOR FIELDS > 

1!DECIMAL VLENGTH .SO INTR NC= INTO ( INITIAL POS AND COL ) 
2!NO NOWR NO NOWC ( CURRENT ROW AND COLUMN ) 

3INC* NOWD ( CURRENT DIRECTION ) 

41( NC* NXTR NO NXTC ) ( NEXT ROW AND.COLUMN ) 

51( CUSTOM VECTOR ROUTINE GOODIES > 

6 INC* BASEX 1 + 

7! NO BASEY 1 + 

SI NO DELTAX 1 + 

9! NO DELTAY 1 + 

10 INC* MAXDIST MAXDIST NOWR - 1+ O POSLEN 

11 INC* DISTANCE 1 + 

12 INC* DELTADIST 1+ DELTADIST NOWR -- O SNATLEN 

131 ( NO A CCD I ST 1 I- ) ' ' 

14 INC* MEMO1ST NC* MEMR NC= MEMC NC* MEMO 
15! —> 


BLK* ' 1 


0 

( Ml 

IRE CUSTOM 

VEC 

TOR F 

IELDS ) 


1 

NC* 

CUSVEC t+ 

( C 

UST0M 

VECTOR R0U 

TINE ADDRESS ) 


NO 

MYTYPE ( VECT 

OR TYPE INDICATOR ) 

•3 

NO 

MY FLAG ( BlIIL 

D IN 

NEATO FLAG 

) NC* FLAGCODE 

4 

NO 

MV FACE. 1 + 

( WHAT I 

LOOK LIKE 

IN THE OPEN ) 

5 

NO 

VC0R 1+ ( 

MY 

C0R0U 

TIME CELL ) 


6 

NO 

BEHIND 1+ 

C ‘F 

ELL0W 

BEHIND ME 

) 

7 

NC* 

AHEAD 1+ ( 

FE 

L..L0W 

AHEAD OF ME 

) 

13 

! NC* 

VISFLAO 





9 

1 1+ i 

S* HLENGTH 





10 

HLENGTH SC* HO 

ssv 

NC* 

ASSMSV 


11 

NC* 

VIRGIN 





12 

NO 

D1ST—1 ( P 

REV 

DIST 

ANCE ) 


13 

MO 

DTSPF < DI 

SPL 

ACEME 

NT FACTOR ) 


14 

NO 

SNATCHER 1 





15 

1 + 

O HLENGTH 

- y 


- 




BU-C 

O 

1 


( MORE UNIQUE VECTOR STUFF ) 
MLENGTH AHEAD O MYSLAVE 
SC* FNDPTR FNDF’TR C* TRACKFTI 
BEHIND C* MYBOSS 
NC* FRONTIER 1+ 

NC* V ISM AT NCOLS +. O TREES 
0 SC* TPL NC* TPH NC* TC NC* 
TEL NNODES * C* TDEPTH 70 O 
TDEPTH TREES + SURPLUS + 

1+ O MONLEN 


1+ NO TREECK 


TR NO TD 1+ C 
SURPLUS 


101HLENGTH O PLENGTH ( PLAYERS VECTOR LENGTH 
11. I PLENGTH C* RVLENGTH ( REVEALERS LENGTH ) 
121< BITS AND CODES ) 

131( VECTOR TYPES ) 

1410 SC* T-TYP NC* H-TYP NC* M--TYP O K-TYP 
151-.-> 



i+- 


= TEL 










FILE = VE ' 1 , 

BLK* 3 ' , 

0!( HOSTAGE AND PLAYER STATE VARIABLES ) 

1!( THE HOSTAGE STATE VARIABLE > 

2!0 SC* HSFREE < HOSTAGE FREE > 

3!NC* HSATP ( HOSTAGE ATTACHED TO PLAYER ) 

4 INC* HSATM DROP ( HOSTAGE ATTACHED TO MONSTER ) 

5!( ASSIMILATION STATE VARIABLE > 

610 SC* ASNOT ( NOT ASSIMILATED ) 

7 INC* ASSIM DROP ( FULLY ASSIMILATED ) 

81( PLAYERS ASSIMILATION STATE VARIABLE ) 

910 SC* ASCOOL ( PLAYER IS SPIFFY ) 

10 INC* ASONTOP DROP ( PLAYER IS ON TOP OF HOSTAGES ) 

11 I--> 

121 

131 ■„ 

14 I 

151 • 

BLK* 4 

01 ( VECTOR STUFF ) VPTR @ HEX FFFO VPTR ! <STKD 
1 IRAMMARK MLENGTH BR= BKGV RAMLEN C* BKVL VARHERE C= BKVS 
21RAMMARK PLENGTH BR* PLYRV RAMLEN’ C* PLYRL VARHERE C* PLYV 
31 RAMMARK RVLENGTH BR* REVV RAMLEN C* REVL. VARHERE C* REVS 
41RAMMARK MLENGTH BR* TV1 RAMLEN C» TVVL VARHERE C* TVVS 

5 IRAMMARK RVLENGTH BR* RVOV 

6 IRVLENGTH BR* RV i V 

7 IRVLENGTH BR* RV2V 

8 IRVLENGTH BR* RV3V 

9 IRVLENGTH BR* RV4V 

10 IRVLENGTH BR* RV5V 

11 IRVLENGTH BR* RV6V 

121RVLENGTH BR* RV7V RAMLEN C* RVVL VARHERE C* RVVS 

131 stk:> vptr e h. vptr i 

141—> 


BLK* 5 

0!( MONSTER STUFF ) 

1 I 

2 IRAMMARK MONLEN BR* M0NV1 
3IM0MLEN BR* M0NV2 

4 IMONLEN BR* M0NV3 

5 IMONLEN BR* M0NV4 

61RAMLEN C= MONVL VARHERE C* MONVS 

7 IMONLEN C= MONVBYTES 

8 I DECIMAL —> 

O 1 

y s 

10 ! 

11 I 

12 I 
, 13! 

, 14 ! 









FILE =,VE 
BLK= ,6 


0!( TREASURE VECTORS') 

1, ! 

2!RAMMARK MLENGTH BR= TRSV1 


j 


MLENGTH 

MLENGTH 


BR= 

BR= 


TRSV2 

TR8V4 


MLENGTH BR~ TRSV3 


3!RAMLEN C= TRSVL VARHERE C= TRSVS 
6!MLENGTH C“ TRSVBYTES 
7!4 C~ TOTAL-JEWELS 


10 

11 . 

12 

14 

15 


BLK-- 7 

0!( HOSTAGE VECTORS ) 

1!RAMMARK HLENGTH BR~ HOSVl 
2!HLENGTH BR~ H0SV2 HLENGTH BR= H0SV3 
3 IHLENGTH BR= H0SV4 

4!RAMLEN C= HOSVL VARHERE C~ HOSVS 
5!HLENGTH C= HOSVBYTES 
6!4 C= TOTAL-HOSTAGES 

7!TABLE HOSTAB HOSVl , H0SV2 , HOSVS , 


9 
10 


H0SV4 C~ TEMRM 


11 

12 

13 

14 


01 < MORE MEAT VECTOR STUFF > 
t I “ ZAPS VECT 0 RV7V BKGV RV7V - BKVL •!•• 
210 H0SV4 MONVI H0SV4 - MLENGTH + FILL 

O j “'j, 

4 1 


A 

7 


10 1 
11. ! 
12 ! 
13! 

14 ! 

15 ! 













BLI-C 

0 

1 


4 


10 
11 
12 
13 


( SPECIAL. VECTOR GETTERS AND PUTTERS- 5 

CODE PUSH! OCR 0 H MVI, H D MOV» Y PUSHX, vaddr- LIYD, 

NOWC Y L LDX, NOWR Y E LDX, Y POPX, H PUSH * D PUSH, 

CUDL L'000 ( i s xcha9e BC with VCOR ) 

vaddr LHLD, VCOR D LX I, D DAD, 


M A MOV, C M MOV, 
M A MOV, B M MOV, 
' SETCO 14 VCOR V! 


S 


A C MOV, 
A B MOV, 


H I NX. 
NEXT 


14 

15 


NEXT 






FILE “ VA 
BLK= 0 

0!( GAME CONTROL PARAMETERS ) 

1. ! BV= NOBREAK 
2!V= TRASHFLAG. 

3!V” GAME-OVER V".GAME# 

4!V* NPLAYERS V= PLAYERUP 
5!V=, INITIAL-LIVES 
6!V= REMAINING-LIVES 

7!V= PLAYERDEAD ( PLAYER NAILED BY MONSTER FLAG > 

8!V— PLAYERVELO ( PLAYER VELOCITY ) 

91BV-~ FREEZEFLAG ( PLAYER MOTION FREEZE FLAG ) 

10!BV“ SMARTS < MONSTER SMARTNESS FACTOR ) 

UIV- MONSTERCOUNT ( # OF MONSTERS FLOATING AROUND ) 

12!BV= BANC BV= BANR < POINT OF BANISHMENT FOR MONSTER ) 

13iBV= IBNC BV= IBNR ( POINT OF INITIAL RETURN FOR MONSTER > 

14!.> 

15! 


BLK= .1 

0!( MORE VARIABLES ) 

1. ! V= TOTAL-CONNECTS V= OLD-CONNECTS 
2!V” TOTAL-REVEALED-GROTTOS 
3!V= KEY-THRESHOLD 
4 i V- TOTAL-PATHS 

5!V= REVEALED-PATHS ( # OF PATHS REVEALED TO PLAYER SO FAR > 

6!V~ START.COL V= STOP-COL 

7!V- FOUNDIT BV= THATSALL 
8!DECIMAL —> 


10 ! 

11 i 

12 I 
3 3 I 
1 . 4 ! 

*5 t 
l 'J 5 


BLK= 


o 


( FRE 
SUBR 


E2.E AND UNFREEZE ROUTINES 
FREEZE FREEZEFLAG H LX I, 


) 


M 


I NR j 


RET v 


SUBR 

CODE 

CODE 


FREEZE? FREEZEFLAG LDA, A ANA, RET, 
FREEZETH FREEZE CALL, NEXT 
UNFREEZE FREEZEFLAG H LXI, M OCR, DC, 


NEXT 


6 

7 


10 
11 

13 

14 
1.5 


IF, 0 M MVI, THEN, 













BLK~ 1 

0 ! < 16 BIT INTEGER DIVIDE ROUTINES II N UN/ Q R ) DECIMAL 
1!FORWARD -ZERO FORWARD IDV50 FORWARD IDV60 
2!FORWARD IDVIO FORWARD IDV20 FORWARD IDV30 FORWARD IDV40 
31SUBR unsdiv -^ASSEMBLE L 0 MOV, H B MOV, D A MOV, 0 H LXI, 

4 IE ORA, .ZERO JRZ, B A MOV, 16 B MVI, 

51 LABEL IDVIO C RAL..R, RAL, H DADO, D DSBC, 

61 LABEL IDV20 CMC, IDV50 JRNC, 

71 LABEL IDV30 IDVIO DJiMZ, IDV60 JMPR, 

8II... ABEL IDV40 C RAI...R, RAL, H D ADC, A ANA, D DA DC, 

9IIDV30 JRC, IDV20 JRZ, 

101 LABEL IDV50 IDV40 DJNZ, D DAD, A ANA, ( MAKE IT P08 ) 

1.1 I LABEL IDV60 C RALR, RAL, A D MOV, C E MOV, 

121 LABEL .ZERO RET, ASSEMBLE!;- 

13I8UBR UNSDIV H PUSH, D DSBC, CY, IF, 0 D LXI, H POP, ELSE, 
14 IH POP, unsdiv CALL, THEN, RET, CODE UN/ EXX, D POP, II POP, 
15!UNSDIV CALL, H PUSH, D PUSH, EXX, NEXT DECIMAL .> 


0! ( COMPUTE DELTA FOR 1 COORDINATE CLEAR VECTOR ) 

1IC FIRST A NEGATION SUBROUTINE ) 

2ISUBR CMPHL H A MOV, CMA, A H MOV, L A MOV, CMA, A L MOV, H I NX, 

3 I RET, 

4 I ( INs HL-TARGET, DE~TIME, BC=START ) 

5ISUBR CDELTA B PUSH, ft ANA, B DSBC, CY~, IF, UNSDIV CALL, 

61 ELSE, CMPHL CALL, UNSDIV CALL, CMPHL CALL, XCHG, CMPHL. CALL, 
7IXCHG, THEN, B POP, B DAD, RET, 

8 I DECIMAL —> 

9 j 

10 I 













FILE' = DI : . ' . ' ■- ' 

BLK= 3 ' 

0!( ROUTINE TO VECTOR BETWEEN CURRENT POSITION AND BEST 
1!IN TIME GIVEN IN VECTOR ) —> 

2! CODE A--> BEST /TIME B PUSH, Y PUSHX, 

3!vaddr LIYD. 

4! VXH Y B LDX. VX Y C LDX » VDESTXH Y H LDX, VDESTX Y L LDX , 
5!TTIMERH Y D LDX, TTIMER Y E LDX, D PUSH, CDELTA CALL, 

6!H VXH Y STX, L VX Y STX, D VDXH Y STX, E VDX Y STX, 

7!VYH Y B LDX, VY Y C LDX, VDESTYH Y H LDX, VDESTY Y L LDX, 
SID POP, CDELTA CALL, 

9!H VYH Y STX, L VY Y STX, D VDYH Y STX, E VDY Y STX, 

101Y POPX, B POP, NEXT 
11!DECIMAL —> 

t 2: 

131 

14! 

15 I 





FILE = NM Y : . 

BLK= 3 

OK TEST 5 REL AND MOVE:NODE ) 

1 ! ( D~ROW,E-<OL,C“REL COL ROW REL TEST5 REL - DIST ) 

25SUBR tests re 1 C A MOV, MPI.O ADI, A C MOV, node-'- CALL, 

,3!M A MOV, RET, 

4 ! CODE TESTs REL. EXX, B POP, H POP, D POP, L D MOV, tests rel CALL, 
5!A L MOV, 0 H MVI, H PUSH, EXX, NEXT 
61( MOVE!NODE TABLES ) 

71 DATA xtb 1 -LB, 0 B, I B, -1 B, :i B, -1. B, 0 B, 3. B, 

81 DATA Ytbl 3. B, 1 B, 1. B, 0 B, 0 B, -3. B, -1 B, -3. B, 

91SUBR moves node B PUSH, ( C=DIR, D=ROW,E=COL. ) 

1010 B MVI, vtbl H LXI, B DAD, M A MOV, D ADD, A D MOV, 

11Ixtbl H LX I, B DAD, M A MOV, E ADD, A E MOV, B POP, RET, 

121 CODE MOVE! MODE EXX , B POP, H POP, D POP, L. D MOV, 

131 moves node CALL, D L MOV, 0 D MVI, D H MOV, 

3.41D PUSH, H PUSH, EXX, NEXT 
15 1 —> 


ELK” 
0 1 
1 1 


It 

41 


4 

STUFF' ) 

NODE! NODE-'- I ? 

NODE® NODE- ® ? 

NODEB® MODE"" B@ 1 

CLEAR!NODEMAT 0 0 NODEMAT NODEMAT 


IZE FILL. ; 


9 1 
10 1 
11 1 
3.2 ! 
131 
i. 4 1 
151 



BLK= 5 

01C CHECKS NODE AND ESTVALDIR > 

1 1 HEX 

21s CHECKS NODE 2DUP 7F AND NROWS 
31 SWAP 7F AMD NCOL.S < AND 5 
41 DECIMAL 
51F'= EVDL 



61SUBR estvaldir <ASSEMBLE NOWR Y D LDX, NOWC Y E LDX, 


710 NOWD Y MVIX, 


31 LABEL EVDL NOWD Y A LDX, MPLO ADI, A C MOV, node"" CALL, 

91M A MOV, A ANA, RNZ, NOWD Y INRX, EVDL JMPR, ASSEMBLE!* 

101 CODE ESTVALDIR B PUSH, Y PUSHX, vaddr LIYD, fstvaldir CALL, 
tilY POPX, B POP, NEXT 
3.2 1 

3 4! 

15! 










FILE 
BLK~ 
0! 
1 ! 


o l 

4 ! 
5 ! 
61 
7 ! 


* m 
6 

NODE 
= NR* 
GETS 
SETs 
TEST 
SET: 
TEST 



MATE IX MAN IFULATORJ 
C V= NEsE V= MR: 

C s R s M NRSC 6 NESE @ NRsM @ ? 
DRAWN ROLL DRAWMSK NODE”" SET S 
s DRAWN ROLL DRAWMSK NODE”'- BIT 5 
GROTTOS DRAWN DRAWFLG NODE"" BONE 
sGROTTOsDRAWN DRAWFLG NODEB© ? 


9! 
:l 0 ! 
U I 

j 2! 

131 
14 1 
15 ! 





FILE = NM " 

BLK= 0 

- 0!( MESH PARAMETERS ) CSTKD 
1 ! 

21320 NCOLS / C= COLSIZE 180 NROWS / 0= R0WSI2E 
3!36 €= COLGUARD 28 ROWGUARD 10 C= ClR-RAD 
418 C= HOLE-RAD NROWS 1- C= START-ROW 

5!COLSIZE COLGUARD - C= COLDEV ROWSIZE ROWGUARD - C~ ROWDEV 
6! 

7!s COLCENT COLSIZE * COLSIZE 2 / + 160 - 5 
8! 5 ROWCENT ROWSIZE * ROWSIZE 2 / + 104 -■ 5 
9! 

10 is COMPsX COLCENT COLDEV 2 / COLDEV RND - + ? 

Ills COMP!Y ROWCENT ROWDEV 2 / COLDEV RND - + 5 

1 O » 

j. ,rL I 

13!s COMPsXY COMPsY SWAP COMP!X SWAP 5 

14!STK> -.> 

151 

BLK- 1 
0 


4 

5 

6 
7 


10 
i i 
12 

14 

15 


( MESH MATRIX GOODIES ) 

0 SO NODX NO iMODXH 

NO NODY NC- NODYH NC= MBX 1+ NC™ NBY 14- 

MO MPLO NO MPL1 NO MPL2 NO MPLS NO MPL4 NO MPLS 

NO MPLS NO MPL7 

NO NDXO NO NOX1 NO NDX2 NO NDX3 MC= NDX4 NO NDXS 
NO NDX6 NO NDX7 

NO NDYO NO NDY1 NO NDY2 NO NDY3 NO NDY4 NO NDY5 
NO NDY6 NO NDY7 
NO CONFLG NO #C0N 
NO DRAWFLG NO DRAWMSK 
NO" ^TREASURE 1+ 

14 O NODS I Z 

NODSIZ NNODES * C= NODEMATsSIZE 
NODEMATs SIZE BA- NODEMAT —> 


BU<= 2 

0!( NODE ZAMMERS ) 

1 ! ( SUBR node-"' D= ROW E= COL O DISP, OUT HL= ) 

21F = N "■ 1 F~ N""-2 SUBR node"'- CASSEMBLE D PUSH, B PUSH, 

SID B MOV, B I NR, NC0I...S MINUS A MV I, 

41 LABEL N""1 NCOLS ADI, NO D,JMZ, E ADD, A I MR, A B MOV, 

5 I MODS I Z MINUS H LX I, NODS I Z D LX'I, 

61 LABEL N--2 D DAD, N-'"2 DJNZ, B DAD, 0 NODEMAT B LX I, B DAD, 
7 1B POP, D POP, RET, ASSEMBLE!* 


8 I CODE MODE-- EXX, B POP, 
91H PUSH, EXX, NEXT 


10 


11 

12 


H POP, D POP, L. D MOV, node"" 


CALL, 


14 I 
15! 













FILE'** VC 
O' 

0! ( STUFF ) * ; . 

1:: RETURN:INITIALS POSITION INTR VB© NOWR VB! INTO VB© NOWC VB 


4!s CRAWLsTUNNEL 
514 NDUP DROP JEST:R 
61 TIMER!--ON MO 
712DUP NODX NODE 
81A->DEST/TIME 
91s SETs POSITH 


10 

11 

12 

14 ! 



SWAP * 


STX! NODY NODE® DESTY! 


OCR 2DUP NODX NODE® X! NODY NODE© Y! 


RETURN:INITIAL:POSITION INTR VB© NOWR VB! INTC VB© NOWC VB 


BLK= 

0 


6 

7 

9 
10 
11 
12 
13 
1.4 
i 5 


1. 

( MORE STUFF ) 

: SETs NEWsMCCR NOWR VB ! NOWC VB !. 5 
: SET:INITIAL:MCCR DUP ROLL INTR OVB! INTC OVB! 5 

( RUSH TO DESTINATION ) 

: ONsTARGET? PUSH:OCR INTR VB© » SWAP INTC VB© = AND 

: RUSSIAN STAY:PUT PU ajTCCR NODX NODE© DESTX! 2ER0TIMEB 
PUSH: CCR NODY JslODE© ii R3TY ! 10 TIMER ! -ON A-ODEST/TIME 


s MAKE:MOVE DUP 
2DUP NXTR VB! 
NODY NODE© Dli 

: ONsTARGE 



VB! PUSH:CCR ROT MOVE:NODE ZEROTIMEB 
! 2DUP NODX MODE© DESTX! 

5 POSITI ON s X Y A-O DEST/ TI ME ? 


FI'R VB© 


SWAP INTC VB© 


AND- 


% 







FILE = CD 
BLK® 0 

0!(•COMPUTE DELTAS FOR STORAGE ROUTINE ) 

1!( THIS ROUTINE COMPUTES DELTA FOR ONE COORDINATE ) 

2!SUBR CDEL1 < DE=R,C B=COQRD PTR, C=DIR ) 

31 B PUSH, D PUSH, 

4 SB PUSH, C A MOV, MPLO ADI, A C MOV, nod*-'" CALL, M L MOV, 
510 H MV I, B POP, L A MOV, A ANA, GO, IF, 

6 1H PUSH, D PUSH, moves node CALL, 

71B C MOV, node'"- CALL, M E MOV, H INX,’ M D MOV, XCHG, 
81XTHL, XCHG, node;"" CALL, M C MOV, H INX, M B MOV, 

91H POP, ( TARGET 5 D POP, < TIME ) CDELTA GALL, E A MOV, 
101 THEN, D POP, B POP, A B MOV, RET, 

11 1 —> 

12 1 
13 1 

141 

151 


BUT 

0 

1. 


( SET DELTAS FOR BOTH COORDINATES FOR A GIVEN PATH > 

SUBR SETDELTS 

NBX B MVI, CDEL1 CALL, B PUSH, C A MOV, NDXO ADI, A 0 MOV, 
node""- CALL, B M MOV, B POP, NBY B MVI, CD EL 1 CALL, 

B PUSH, C A MOV, NDYO ADI, A C MOV, 
node"'" CALL, B M MOV, B POP, RET, 


10 
11 

13 

14 


BLK= 2 

01( COMPUTE DELTAS FOR WHOLE MATRIX ) 

11F= MAKELP 

21 CODE MAKEDELTS CASSEMBLE B PUSH, 

310 D LX I, 0 C MVI, 

41 LABEL MAKELP SETDELTS CALL, 

51C A MOV, A IMR, A C MOV, 8 CPI, MAKELP URN2, 0 C MVI, 

61E A MOV, A INR, A E MOV, NCOLS CPI, MAKELP JRNZ, 0 E MVI, 

7 1D A MOV, A INR, A D MOV, NROWS CPI, MAKELP JRNZ, 

SIB POP, NEXT assemble:?- 

9ls FIXVGER NCOLS 0 DO NROWS 0 DO 

10 id I NODX NODES XADJ J I NBX NODE! 

11 1 ..J I NODY NODES YADJ J I NBY NODE,! LOOP LOOP 5 

12 is MD FIXVGER MAKEDELTS 5 

14 1 
151 








FILE = VR \ ‘ 

BLK= 0 

01< HOPPED UP ,8 BIT MPY ROUTINE ) ’ . 

t1< THIS ROUTINE'IS USED TO MULTIPLY DELTA BY DISTANCE ) 
'21( ADDING RESULT TO INITIAL DISP > 

31( HL- INITIAL DISP, DE= DELTA, A= DIST ) 


4 1 SUBR 

HOTMPY 

RRC. 

:, CY, 

IF, 

D DAD, THEM, E SLAR, D RALR, 

51RRC, 

CY, 

IF, 

D 

DAD, 

THEN, 

E SLAR, 

D 

RAL R, 

6 1RRC, 

GY, 

IF, 

D 

DAD, 

THEN, 

E SLAR, 

D 

RALR, 

71RRC, 

CY, 

IF, 

D 

DAD, 

THEN, 

E SLAR, 

D 

RALR, 

81RRC, 

CY, 

IF, 

D 

DAD, 

THEN, 

E SLAR, 

D 

RALR, 

91RRC, 

CY, 

IF, 

D 

DAD, 

THEN, 

E SLAR, 

D 

RALR, 

101RRC, 

CY, 

IF, 

D 

DAD, 

THEN, 

E SLAR, 

D 

RALR, 

111RRC, 

CY, 

IF, r 

D 

DAD, 

THEN, 

RET, 



121 SUBR 

SQUARE 

BABS CAL 

,L, A 

E MOV, 0 

D 

MVI, 0 H LX I, 


13 1 HOTMPY JMF'R, 

14 1 --> 

151 


BLK~ 1 

01( CALCULATE X Y POSITION OF OBJECT FROM DISTANCE, BASE, AND ) 


9 
10 
11 
1 

14 

1.5 


1 . 

C DELTAS 

) 








2 

SUBR CALC 

IXY 0 C MVI 

7 








NOWR Y A 

LDX, MEMR 

Y 

cmpx , o<: 

•, IF, C 

I NR, A 

MEMR 

Y STX, 

THEM, 

4 

NOWC Y A 

LDX, MEMC 

Y 

cmpx, o<: 

•, IF, C 

I MR , A 

MEMC 

Y STX, 

THEN, 

5 

NOWD Y A 

LDX, MEMO 

Y 

cmpx, o<: 

if, e 

I NR, A 

MEMO 

Y STX, 

THEN, 

6 

1 DISTANCE 

H- Y A LDX 

7 

A B MOV, 

MEMO1ST 

Y CMPX, 

^ J 7 

IF, 


"7 

/ 

C INR, A 

MEMOIST Y 

8 

TX, THEN, 






8 

1C A MOV, 

A A N A ? U 7 


IF, 


* 





VX Y E LDX, VX 
VY Y L LDX, VY 
RET, 

THEN, VBSUPDATE 


1+ Y D LDX, 

If Y H LDX, 

VLOGICSTAT Y SETX, 


DL.K 

0 

1 


A 

7 

9 
10 
11 
12 

13 

14 

15 


( MORE CUTE CALCULATIONS ) 

B A MOV, 

BASEX Y L LDX, BASEX 1+ Y H LDX, DELTAX Y E LDX, 

DELTAX 1+ Y D LDX, HOTMPY CALL, L VX Y STX, H VX 1+ Y STX, 
H PUSH, 

BASEY Y L LDX, BASEY l+.Y H LDX, DELTAY Y E LDX, 

DELTAY 1+ Y D LDX, HOTMPY CALL, L VY Y STX, H VY t+ Y STX: 
D POP, 

RET, 











FILE ,VR , ’ •• ' : 

BLK= 3 . 

0!( SET BASE POSITION ) 

1 !( IN DE=ROW,COL ) 

2 !SUBR SETBASEPOS B PUSH, D PUSH, 

3! NBX C MV I, node-- CALL, M E MOV, H I NX, M D MOV, H I NX, 
4!M C MOV, H IMX, M B MOV, 

5!E BASEX Y STX, D BASEX 1 + Y STX, 

6 !E VX Y STX, D VX 1+ Y STX, 

7!C BASEY Y STX, B BASEY 1+ Y STX, 

SIC VY Y STX, B VY 1+ Y STX, 

9l D POP, B POP, RET, 

10 f SUBR FREEZEBASE. A XRA, 

11 IA DISTANCE Y STX, A DISTANCE 1+ Y STX, 

12 S< A ACCDIST Y STX, A ACCDIST 1+ Y STX, ) 

13!A DELTADIST Y STX, A DELTADIST 1+ Y STX, RET, 

14!—> 

15! ' ' 


BLK : 

0 

1 


10 

11 

12 

14 

15 


4 

< ROUTINE TO ESTABLISH NEW BASE POSITIONS AND DELTAS ) 

( FIRST A SIGN ROUTINE ) 

SUBR SONA A ANA, 0 A MVI, RP, A DCR, RET, 

SUBR NEWPATH 

NOWR Y D LDX, NOWC Y E LDX, 

SETBASEPOS CALL, NOWD Y A LDX, MPLO ADI, A C MOV, 
node'"- CALL, M A MOV, A MAXDIST Y STX, 8 D LX I, D DAD, 

M A MOV, A DELTAX Y STX, SGNA CALL, A DELTAX 1+ Y STX, 

D DAD, M A MOV, A DELTAY Y STX, SGNA CALL, A DELTAY 1+ Y 
RET, 


/' 


r 


BI.JO 

0 

t 


6 

7 

8 
9 

10 
1 :!. 
12 

13 

14 

15 


( ROUTINE TO CAUSE OBJECT TO ARRIVE AT A NEW POSITION ) 
SUBR ARRIVE DI, 

NOWR Y D LDX, NOWC Y E LDX, NOWD Y C LDX, 
moves node CALL, D NOWR Y STX, E NOWC Y STX, 

SETBASEPOS CALL, FREEZEBASE CALL, 

RET, 


V Tj 

. M Y\ 

\5 V 



STX 








FILE = VR 
BLK= 6 

OK DISTANCE PHASE ACCUMULATOR ') 

1!( DISTANCE HAS BOTH DELTA AND ACCELERATION > 

2S( IN A* TIMEBASE TO USE ) 

3! SUBR DISTPA TBDEST TCHGST AT Y BITXKRNZ, 

4! DISTANCE Y L. LDX, DISTANCE 1+ Y H LDX , 

5!DELTADIST Y E LDX, DELTADIST 1+ YD LDX, 

61( ACCDIST Y C LDX, ACCDIST 1+ Y B LDX, ) 

71BEGIN, D DAD, ( XCHG, B DAD, XCHG, ) A DCR, 0=, END, 

8 ! ( IF BEYOND MAX DISTANCE, SET AT MAX DISTANCE AND FI...AG ) 

9! MAXDIST Y A LDX, A ANA, OO, IF, H A MOV, MAXDIST Y CMPX, 

10! CY~, IF, TBDEST TCHGST AT Y SETX, MAXDIST Y H LDX, 0 1.. MVJ, 

It!THEN,' THEN, E DELTADIST Y STX, D DELTADIST 1+ Y STX, 

121L DISTANCE Y STX, H DISTANCE 1+ Y STX, 

131RET, 

14 ! —> 

1.5 ! 

BLI<~ 7 

OK DISTANCE VECTORING ROUTINE AND VGER VERBS ) 

1!5 C“ TB-DVECT ( TVMR0PT2 BIT TO ACTIVATE DISTANCE VECTORING ) 
2!SUBR DISTVECT PSW PUSH, B PUSH, 

31B A MOV, DISTPA CALL, 

4!CALCXY CALL, B POP, PSW POP, RET, 

•5!SUBR NEWVECT TB-DVECT TVMR0PT2 Y BITX, vect ,JZ, 

6 !H PUSH, CUSVEC Y L LDX, CUSVEC 1+ Y H LDX, XTHL, RET, 

71 HEX NEWVECT 89D9 ( 8956 ) U! DECIMAL ( ******* STUFF IN LINK ) 
81 CODE! DVECT-OFF Y PUSHX, vaddr LIV'D, TB-DVECT TVMR0PT2 Y RESX, 
91Y POPX, NEXT 

10!CODE DVECT-ON Y PUSHX, vaddr LIYD, 

111DISTVECT H LX I, L CUSVEC Y STX, H CUSVEC 1+ Y STX, 

121TB-DVECT TVMR0PT2 Y SETX, Y POPX, NEXT 

141 

151 


BLI<= 8 

OK CODE FOR TASKS TO INTERFACE TO NEW GOODIES ) 

11 CODE ESTP08 DI, B PUSH, Y PUSHX, vaddr L.IYD, 
21N0WC Y E LDX, NOWR Y D LDX, 

31SETBASEPOS CALL, 

41FEEEZEBASE CALL, 

51Y POPX, B POP, NEXT 
61( TRAVEL AWAY FROM NODE ) 

7!CODE DEPART;MODE DI, B PUSH, Y PUSHX, vaddr LIYD, 
8 1 NEWPATH CALI.., 

91Y POPX, B POP, NEXT 
101( ARRIVE NODE 5 

111 CODE ARRIVE!NODE DI, B PUSH, Y PUSHX, vaddr LIYD, 
121 ARRIVE CALL, 

131Y POPX, B POP, NEXT 
14!'—> 

15! 








FILE * VR . 

BLK= 9 

'OK REVERSE DIRECTION ROUTINE ) 

1 !SUBR REVERSE 5 DIRECTION 

2! NOWR Y D LDX, NOWC Y E LDX , NOWD Y C LDX , 

3!moVe:node CALL, C.A MOV, CMA, 7 ANI, 

4!D NOWR Y STX, E NOWC Y STX, A NOWD Y STX, 

5!NEWPATH CALL, MAXDIST Y H LDX, 0 L MVI, 

6 !DISTANCE Y E LDX, DISTANCE 1+ Y D LDX, 

7!A ANA, D DSBC, L DISTANCE Y STX, H DISTANCE 1+ Y 
8 !RET, 

9! CODE RUSH: SOURCE DI, B PUSH, Y PUSHX, vaddr LI YD, 
1.0! DISTANCE Y A LDX, DISTANCE 1+ Y ORAX, 0<>, IF, 

11!REVERSE:DIRECTION CALL, 

1.2! THEN, 

1.3 !Y POPX, B POP, NEXT 
14!—> 

1.5! 





FJL.E “ WE „ 

BLK= 0 

0!< VMR SLEZR2A > 

1 ! HEX 

21SUBR SLEZR2A ( does pat offset and re labs ) 

3! ( in- BC= magic/exp , HL-~ y , DE= .x , IX= pattern addr ) 

4! ( out- HL~ new vscradr , C= new vmasic ) 

5! invertxY? CALL, L SLAR, H RALE, L. SLAP, H RALE, ( *4 for. y > 

6! invert? CALL, 

7! H PUSH, X CHG, 0 X D LDX, 0 E MV I, ( x offset ) 

si D SEAR, E RARE, D SRAR, E RARE, ( /4 for x offset > 

9! MEFLOP C BIT, OO, IF, D DAD, ELSE, A ORA, D DSBC, THEN, 

10! XTHL, ( push X+off, HLC-Y ) 1 X D LDX, 0 E MVI, < y offset ) 

11! MRFLIP C BIT, OO, IF, D DAD, H DCX, 

12! ELSE, A ORA, D DSBC, THEN, 

13! D POP, - 

14!—> 

15! 

BL.K= 1 
0!< VMR ) 

1! ( y can not get here larger then 256 > 

2! H A MOV, 0 H MVI, A L MOV, H DAD, H DAD, H DAD, 

3! H DAD, D PUSH, L E MOV, H D MOV, H DAD, H DAD, ( *64 ) 

4! D DAD, ( *80 ) XCHG, H POP, < x ) 

5! LA MOV, ( SAVE BIT CNT ) H L MOV, 0 H MVI, D DAD, ( x+Y ) 

6! RLC, RLC, 3 ANI, 

7! MEFLOP C BIT, OO, IF, NEG, 0=, IF, H DCX, THEN, THEN, 

C A MOV, FC ANI, E ORA,* 

) RET, 


13! 

14! 


8 ! 3 ANI, A E MOV, invert? CALL, 
9!A C MOV, ( HL= screen address 
10! DECIMAL. —> 

11 ! 


ELK 

0 

1. 


i MY OWN EASY 
BV“ INTERSTAT 


TO USE WRITE 


ROUTINE ) 





4 


CODE WRITER A XRA, INTERSTAT STA, 1 NTCRT IN, 

X PUSHX i D POP, EXX, X POPX, B POP, H POP, vadd 
xadJ CALL, XCHG, H POP, 


CALL, 


XTHL, 


.EZR2A 


6 !X INXX, 
7!INTCPT 


CALL, X INXX, X INXX, 
write CALL, EXX, 

IN, INTERSTAT STA, 


0 X E LDX, X INXX, 


0 X D LDX, 


8 !D PUSH, X POPX, MEX T 
9!DECIMAL —> 

10 ! 


11 

12 


14 

15 









FILE = SC ,, ■ 

BLK= 0 

0!< SCORING GOODIES ) 

11 

2SRAMMARK SLENGTH R= P1SV RAML.EN C~ F'lSL VARHERE C= PISS 
3!RAMlHARK SLENGTH R~ P2SV RAMLEN C= P2SL VARHERE C= P2SS 
412 A= PISCR 2 A= P2SCR 
5!9 BA== API SCR 9 BA» AP2SCR 

6!s CLEAR:SCORES VECTORS 0 PISS PiSL FILL 0 P2SS P2SL FILL 5 
7!s CLEAR:SCORES 0 PISCR ZERO 1 PISCR ZERO 
8i0 P2SCR ZERO 1 P2SCR ZERO .CLEAR: SCORE'S VECTORS ; 

.1.0 ! 

11 ! 

12! 

1 . 3 ! 

14 ! 

15! 

BLK= 5. 

0! ( TASK TO DISPLAY PI..AYER ONES SCORE ) 

. 1!s DISPP1SCR ?TASK: 

2!0 PISCR @ 1 PISCR © 1 APISCR 7 BIN~>ASC 
3!8 0 APISCR B! 48 1 APISCR B! 

410 API SCR OS'UPR 
5!-160 X! 99 Yl 
6 ! PLOP-ON 
717 XPAND! 

8!0 APISCR ANIN! 

9! STRING ; 

10 ! 

11!s BUHPP1SCR 0 P1SCR’ @ 1 PI SCR @ ROT 0 D+ 1 PISCR ! 0 PISCR > 
1.2 ! P1SV DISPP1SCE 5 
13 ! 

1 4 ! -.> 

15! 


BLK= 2 

Oil TASK TO DISPLAY PI.AYER TWOS SCORE ) 
l!s DISPP2SCR -TASK: 

2! 0 P2SCR @ 1 P2SCR © 1 AP2SCR 7 B1N-->ASC 
3!8 0 AP2SCR B! 48 1 AP2SCR B! 

4!0 AP2SCR OSUPR 
5!98 X! 99 Y! 

6!PLOP-ON 
7!7 XPAND! 

8!0 AP2SCR ANIN! 

9!STRING S 

10!: BUMPP2SCR 0 P2SCR @ 1 P2SCR © ROT 0 D+ 1 P2SCR ! 0 P2SCR ! 
1.1!P2SV DISPP2SCR ? 

12! 8 I.NCSCORE PLAYERUP @ IF BUHPP2SCR ELSE BUHPP 1 SCR THEN 5 

14! 

15! 







BLK ! 

0 

1 

3 

4 

5 

6 
7 
y 
9 

10 
11 
12 

13 

14 

15 


( TOGGLE:LIFE, DISPLAY REMAINING LIVES, AND BITE DUST ) 
: TOGGLE:LIFE INITIAL-LIVES © -2 / + 16 * 

90 96 PACS WRITER 5 


s DISPLAY:REMAINING sLIVES 
REMAINING-LIVES @ 1- DUP 
0 DO I TOGGLE:LIFE LOOP 
ELSE DROP THEN 5 " 


IF 


s BITE:DUST REMAINING-LIVES 1-! 

REMAINING-LIVES @ DUP IF 1- TOGGLE:LIFE 
ELSE DROP 1 GAME-OVER ! STOPrne 1+B! THEN 




FILE = NGM 
BLI<= 0 

0! ( NEW CONFLICT CHECKER I Ms DE=-R, C B=B OUTs A* FLAG ) 
1!BATA CONCM 1 B, 0 B, 1 B, 0 B, 0 B, 6 B, 0 B, 6 B, 

■215 B, 0 B, 7 B» 0 B, 0 B, 0 B, 0 B, 2 B, 

3!SUBR CONFLICT? B PUSH, 0 B MVI, CONCM H LXI, B DAD, 

4 ! M A MOV, A ANA, 0=, IF, B POP, RET, THEN, 

5!D PUSH, H PUSH, A C MOV, moves node CALL, 

61H POP, 8 B LX I, 6 DAD, M A MOV, MPLO ADI, A C MOV, 

7! node- - ' CALL, M A MOV, D POP, B POP, RET, 

8 !CODE CONFLICTS CHECK EXX, B POP, H POP, D POP, L D MOV, 
9!CONFLICT? CALL, A L MOV, 0 H MVI, H PUSH, EXX, NEXT . 
10 ! 

11!C CHECK FOR LEGAL NODE ) 

12!( D= ROW, E= COL RETURNS CY SET IF LEGAL COMBO ) 

13!SUBR m ove che c k 

14!D A MOV, NROWS CPI, RNC, E A MOV, NCOLS CPI, RET, —> 
15! 


BLI<= 1 

0! ( VAR I ABLE'S FOR 
1!V" GMRC V= GMD V 
V= RCX V= RCY V= 


MATRIX GENERATOR ) 
GMNRC 

NRCX V= NRCY 


7 

8 
9 

10 
11 
12 

13 

14 

15 


BLK : 

0 

1 


4 

nr 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


MOV, GMD STA, ( STUFF STUFF 
_L, M A MOV, A ANA, RNZ, 
CALL, GMNRC SDED, ( SET NEW 


( ADD PATH ROUTINE ) 

SUBR addpath GMRC SDED, C A 
MF1..0 ADI, A L MuV, node"' L’Al 
GMD LDA, A C MOV, moves node CALL, GMNRC SDED, ( SET NEW R, 
movecheck CALL, RNC, 

GMRC LDED, CONFLICT? CALL, A ANA, RNZ, 

TOTAL-PATHS LHL.D, H I NX, TOTAL-PATHS SHLD, ( BUMP PATHS ) 

( COMPUTE DISTANCES AND DELTAS ) 

NODX C. MV I, GMRC LDED, node-' CALL, 

M E MOV, H INX, M D MOV, H INX, RCX SDED, 

INX, M D MOV, 
node' - ' CALL,’ 

INX, M D MOV, 

INX, M D MOV, 


M E MOV, H 
GMNRC LDED, 
M E MOV, H 
M E MOV, H 


RCY SDED, 

H INX, NRCX 
NRCY SDED, 


SDED, 








FILE «' NGM V '' , 

BLK* 3 . 

OS < COMPUTE D 1STAlMCE ) 

1SRCY LHLD, A ANA, D DSBC, L A MOV, SQUARE CALL, H PUSH, 
2SNRCX LDED, RCX LHLD, A ANA, D DSBC, L A MOV, 

3! SQUARE CALL, D POP, D DAD, s<=irt CALL, A B MOV, ( B= DIST ) 
4!GMRC LDED, GMD LDA, MPLO ADI, AC MOV, node-'- CALL, BMMOV, 
5! #CON C MV I, node-'- CALL, M I NR, 

6.1 GMD LDA, CM A, 7 AN I, MPLO ADI, A C MOV, 

7 ! GMNRC LDED, node"'- CALL, 

8! B M MOV, #CON C MV I, node"- CALL, M I NR, RET, 

9! CODE ADD: PATH EXX, B POP, H POP, D POP, L. D MOV, 

10!addpath CALL, EXX, NEXT 
11!—> 

12!: ADD: PATH TOTAL-PATHS @ . 3 NDUP . . CR ADD:PATH.5 
13 !—> 

14 ! 

15 ! 

BLK= 4 

( ASSM CONNECTIVITY MARKER ) 

BV= MAKCON 

F= MRPT F= MCLP F= MDLP F= NOSH F= NXTRC 
CODE MARK:CONNECTIVITY <ASSEMBLE EXX, 

LABEL MRPT A XRA, MAKCON STA, 0 D LXI, 

LABEL MCLP CONFLG C MV I, node"- CALL, M A MOV, A ANA, 

NXTRC JRNZ, < SKIP IF ALREADY CONNECTED ) 

MPLO CONFLG - B L..XI, B DAD, 0 B MV I, < B= DIR CTR ) 

LABEL MDLP M A MOV, A ANA, NOSH JRZ, ( KICKOUT NOT REL > 

B C MOV, H PUSH, D PUSH, 
move:node CALL, < GOTO NEIGHBOR ) 

CONFLG C MVI, node- CALL, D POP, M A MOV, H POP, 

A ANA, ( IS NEIGHBOR MARKED? ) NOSH JRZ, 

CONFLG C MVI, node- CALL, 1 A MVI, A M MOV, MAKCON STA, 
TOTAL-CONNECTS LHLD, H INX, TOTAL-CONNECTS SHLD, 

NXTRC JMPR, .-> 


0 


4 

5 

6 
7 


10 

11 

12 

13 

14 



< TRY THE NEXT DIRECTION ) 

LABEL NOSH B INR, H INX, B ft MOV, 8 CPI, MDLP JRNZ, 
( GOTO NEXT GROTTO ) 

LABEL NXTRC E INR, E A MOV, NCOLS CPI, MCLP JRNZ, 0 
D INR, D A MOV, NROWS CPI, MCLP JRNZ, 

( KEEP SCANNING UNTIL THANGS STABILIZED ) 

MAKCON LDA, A ANA, MRPT JRNZ, EXX, NEXT 
ASSEMBLE? 


10 

11 

12 

13 

14 

15 










FILE ... , > , ' , ' ,■ .• 

BLK= 0 

O!( CONNECTIVITY TESTING > 

1 ! s ZAM BK.GV vaddr ! NCOLS 0 DO NROWS 0 DO J I 
2!COMP*XY J I NODY NODE! J I NODX NODE! LOOP LOOP 5 
3!! NOTE:CONNECTIVE CONFLG MODE-'- BONE i 
4! s TEST: CONNECTIVE CONFLG NODES® ", —>. 


“7 j 

y * 

9! 

:i. 0! 

11! 

12 ! 

13! 

14! 

15! 

BL..IO :! 

0!( CONNECT INDICATED ZONES TOGATHER ) 

11: CRND DUP 0= IF 5 RND ELSE DUP NCOLS 1 - = IF 5 RND 3 + 
2!ELSE 8 RND THEN THEN ? 

31: ADD:ANOTHER*TOTAL-PATHS @ BEGIN NCOLS 2 - RND 1+ 

4!NROWS 2 - RND 1+ CRND ADD:PATH DUP TOTAL-PATHS @ 

510 END DROP 5 

6!: MAKE:MAZE CLEAR:NODEMAT ZAM 
711 TOTAL-CONNECTS ! 

81NCOLS 2 - RND 1+ DUP START-COL ! 0 NOTE:CONNECTIVE 
9!NCOLS 2 - RND 1+ STOP-COL ! 

101NCOLS 0 DO NROWS 0 DO J I CRND ADD:PATH LOOP LOOP 
111 BEGIN 

121.1. ( IN IT ) NCOLS 0 DO NROWS 0 DO J I #CON NODES® 2 < IF 
13U I CRND ADDS PATH DROP 0 THEN LOOP LOOP END 
14! BEGIN MARK'S CONNECTIVITY TOTAL-CONNECTS @ 1 = WHILE 
151 START-COL @ 0 CRND ADD:PATH REPEAT —> 


BL 


O 

1 


( KEEP COOKING UNTIL EVERYONES CONNECTED ) 
BEGIN 


21NCOLS 0 DO NROWS 0 DO J I TEST:CONNECTIVE NOT IF 

31J I CRND ADDS PATH THEM LOOP LOOP 

4!MARK:CONNECTIVITY TOTAL-CONNECTS @ NNODES = 

5 1 END 

614 GAME# B@ 4 MIN - 4 # DUP IF 0 DO ADD:ANOTHER LOOP 
7!ELSE DROP THEN 5 


10 

11 

12 

14 

15 


( ARE WE IN THE S 
s STARTs CHAMBER? 
2DUP -START-ROW = 
ELSE DROP 1 THEN 


TART CHAMBER ) 
IF START-COL © 


IF 2DR0P 0 ELSE 


THEN 









FILE =' LD ■ 

BLK= O 

0! ( **** LOCAL, DISTANCE *#■** ) 

1!( LOCAL DISTANCE ROUTINE ) 

2!( THIS ROUTINE CONFUTES THE DISTANCE BETWEEN TWO OBJECTS ) 

3! < IN: IX= FOLLOWER IY= LEADER OUT 5 A=DIST, B= REV FLAG >. 
4!F= DIFB F= TRYM-F* SAND F= INFIN 
5SSUBR LDIST CASSENBLE 
6!NOWC X E LDX, NOWR X D LDX, 

7i( DOES CI=CO AND RI=RO ? ) 

8SE A NOV, NOWC Y CMPX, TRYN JRNZ, 

91 D A NOV, NOWR Y CNPX, TRYN JRNZ, 

10! < NE AND HIN BOTH HAVE SANE ORIGIN ) 

11 I ( ARE WE ON THE SANE BRANCH? ) 

12!NOWD X A LDX, NOWD Y CNPX, DIFB JRNZ, 

13! (. YES SIR - WE ARE ON SANE BRANCH ) 

.14 {DISTANCE 1+ Y A LDX, DISTANCE 1+ X-SUBX* 0 B MV I, BABS JNP, 
15!—> 

BLK= 1 

O!( WE ARE ON DIFERENT BRANCHES OF THE SANE ORIGIN ) 

1!LABEL DIFB DISTANCE 1+ Y A LDX, 

2!DISTANCE 1+ X ADDX, I B MV1, BABS JNP, 

3!LABEL TRYN NOWD X C LDX, H PUSH, moves node CALL, ( TO BEST ) 
4!H POP, NAXDIST X A LDX, DISTANCE 1+ X SUBX, ( REVERSE DIST > 
5!A B MOV, ( AND SAVE IT IN B ) 

6!D A MOV, NOWR Y CNPX, INFIN JRNZ, 

7!E A MOV, NOWC Y CNPX, INFIN JRNZ, 

SIC A MOV, CMA, 7 ANI, NOWD Y CNPX, SAND JRZ, 

9!( I AM ON A PATH,LEADING ME TO OTHERS ORIGIN ) 

10 SB A MOV, DISTANCE 1+ Y ADDX, 0 B MVI, BABS JNP, 

1.1. !( I AM ON COMPLEMENTARY PATH THAT OBJECT IS ON ) 

12!LABEL SAND DISTANCE 1+ Y A LDX, B SUB, 1 B MVI, BABS JMP, 

13!( OBJECTS ARE FARTHER THEN WE CAN EASILY DETERMINE ) 

14! LABEL. INF IN 127 A MV I, RET, 

15!ASSEMBLE? —> 


BL 


( DISTANCE 
( IF IT GET 


ROUTINE FOR LIST REFORMER TO USE ) 

S INFINITY BACK IT WILL TRY SWAPPING 


AND Y ) 


4 


SUBR LRDI 
127 CPI, 


ST LDIST CALL, ( TRY IT ONE WAY ) 
RNZ, X RETURN IF NON INFINITE ) 


5!( ITS INFINITE SO TRY IT THE OTHER WAY AROUND ) 

6 !X PUSHX, XTIY, X POPX, LDIST CALL, 

7!( BUT SWITCH BACK TO OLD POINTER SCAM BEFORE GOING HOME ) 
3!X PUSHX, XTIY, X POPX, RET, 


10 


13 

14 

15 







FILE = LD 
BLK= 3 

0!( NEW FINDCLOSE ROUTINE ) 

I ! DECIMAL 

2!F= SRCL F= FOLD 

3!SUBR FINDCLOSE <ASSEMBLE 

410 HOSTAB H LX I, EXX, 127 C MVI, EXX, 

'51 LABEL SRCL. M E MOV, H I MX, M D MOV, H I NX, D A MOV, E ORA, 
61FCLD JRZ, D PUSH, X POPX, ASSMSV X A LDX, ASNOT CPI, 

7!SRCL JRNZ, HOSSV X A LDX, HSATP CPI, SRCL JRMZ, 

81LD1ST CALL, EXX, C CMP, CY, IF, A C MOV, 

91X PUSHX, H POP, EXX, B A MOV, EXX, A B MOV, THEN, 

10! EXX,- SRCL JMPR, 

111 LABEL FCLD EXX, RET, 

12!ASSEMBLE> 

14 1 
15! 

BLK= 4 

0!( CHECK FINDCLOSE, AND IF FOUND LIGHT UP FOLLOWER ) 

ISSUER LOOKFOLLOWER ( SEARCH LIST ) FINDCLOSE CALL, 

21C A MOV, MAXASSM CPI, ( IS FOLLOWER CLOSE EMUF? ) 

3!RNC, ( KICKOUT IF TOO FAR AWAY ) 

41DISPF Y CMPX, RC, ( OR TOO CLOSE ) 

5!H PUSH, X POPX, ( IX= FOLLOWER ) 

6!Y PUSHX, D POP, < DE= LEADER ) 

7! ( LINK HER IN ) L BEHIND Y STX, H BEHIND 1 +• Y STX, 

S!E AHEAD X STX, D AHEAD 1+ X STX, ASSIM ASSMSV X MVIX, 

9 i DELTADI ST Y A LDX, A DEL,.TAD I ST X STX, 

10!DELTABIST 1+ Y A LDX, A DELTADIST 1+ X STX, 

11 IB A MOV, A ANA, RZ, ( NEED WE REVERSE FOLLOWER? ) 

12 ID PUSH, H PUSH, Y POPX, REVERSES DIRECTION CALL, Y POPX, RET, 
13!SUBR LOOKASS BEHIND Y A LDX, BEHIND 1+ Y ORAX, RNZ, B PUSH, 
14 ID PUSH, H PUSH, X PUSHX, LOOKFOLLOWER CALL, 

15!X POPX, H POP, D POP, B POP, RET, —> 







FILE * OT v v. 

BLK= 0 

0: ( CHECK FOE ONTOP > 

1!F= ONTL 

2!SUBR ONTOP? CASSEMBLE 
3! 0 HOSTAB H LXI, 0 C MV I,' 

4!LABEL ONTL M E MOV, H INX, M D MOV, H INX, 

5 ID. A MOV, E ORA, RZ, 

6!D PUSH, X POPX, HOSSV X A LDX, HSATP CPI, ONTL JRNZ, 
7 IB PUSH, LRDIST CALL, B POP, ONTOPLMT CPI, CY, IF, 

811 C MV I, THEN, A B MOV, 127 CPI, OO, IF, 

9'nIST-1 X SUBX, 

10!0=, IF, 1 C MVI, ELSE, CX, IF, l C MVI, THEN, THEN, 
11 IB DIST--1 X STX, ONTL JMF'Rj 
12!ASSEMBLE> 

131—> 

14! 

15! 


BI...JO 1 

( PLAYERS INTERRUPT LEVEL ONTOP CHECKER ) 

SUBR PILOTR 

ASSMSV Y A LDX, A ANA, OO, IF, 

ONTOP? CALL, C A MOV, A ANA, RNZ» 

ASCOOL. ASSMSV Y MVIX, ( CLEAR ONTOP STATE ) 
THEN, LOOKASS CALL, (• CHECK MY ASS ) 

RET, 

SUBR PILOTC X PUSHX, PILOTR CALL, X POPX, RET 


y 

9 

10 

11 

12 

14 


BLK 

0 

1 


( PROROGATE LEADERS DELTA DOWN THRU LIST 
1 IY= LEADERS VECTOR ) 

F= CDLP SUBR COPYDELTS CASSEMBLE 
BEHIND Y E LDX, BEHIND 1+ Y D LDX, 


) 


4!LABEL CDLP 

SID A MOV, E ORA, RZ, D PUSH, X POPX, 

6 IL BELTADIST X STX, H BELTADIST 1+ X STX 
71 BEHIND X E LDX, BEHIND 1+ X D LDX, CDLP 
81 ASSEMBLE? 


9 


JMPR 


7 


10 


11 ! 
12 

14 

151 


THEN, 








FILE » OT. 

BLI<= 3. 

Oil MAKE ALL MY FRIENDS HALT RIGHT NOW ) 

1!F~ EHN F« RELP • 

2 ! SUBR HAL.TNOW <ASSEMBLE 

3 ! DI, B PUSH, D PUSH, H PUSH, X PUSHX, Y PUSI-IX, 

41 0 HOSTAB H LX I, PLYRV' Y LXIX, 

5!LABEL RELP M E MOV, H INX, M D MOV, H INX, 

6 ! D A MOV, E ORA, EHN JRZV D PUSH, X POPX, 

7!HOSSV X A LDX, HSATP CPI, RELP JRMZ, 

8!A XRA, A BEHIND X STX, A BEHIND 1+ X STX, 

9!A AHEAD X STX, A AHEAD 1+ X STX, 

10!A DELTADIST X STX, A DELTADIST 1+ X STX, 
liSASNOT ASSMSV X MVIX, 

12! LRDIST CALL, A DIST--1 X STX, RELP JMPR, 

13! LABEL EI-IN A XRA, A‘BEHIND Y STX, A BEHIND 1+ Y STX , 
14!Y POPX, X POPX, H POP, D POP, B POP, ASONTOP A MVI, 
15! ASSMSV PLYRV + STA, RET, 'ASSEMBLED- —> 


BLK 

0 

1 


4 

C INTERFACE 


TO 


CODE PROPDELTA 
vaddr LIYD, 


THE 

DI, 


TERSE WORLD ) 

X PUSHX, Y PUSHX, 


B 


4 


DELTADIST Y L LDX, DELTADIST 1+ Y H LDX 


PUSH, 


5!COPYDELTS CALL, 

6 !B POP, Y POPX, X POPX, NEXT 
7 ! —> 


10 

11 

12 

13 

14 

15 




PILE = HP 

BLK= 0 ' 

OK INTERFACES TO THE TERSE WORLD' > 

1!CODE JOIN!LINE DI, X PUSHX, V PUSHX, B PUSH, 

2! vaddr LI YD, HSATP HOSSV Y MVIX, PLYRV .Y L.XIX, 
3!HALTNOW CALL, 

4!B POP, Y POPX, X POPX, NEXT 


6 

7 


10 

11 

12 

13 

14 

15 


ELK 

0 

1 


< ASSIMULATED NODE 
F= GQHM.F~ VIRG 


ROUTINE 


) 


4 

5 

6 
7 

i:;:t 

c> 

10 

11 

12 

13 

14 

15 


SUBR HASSIM <ASSEMBLE DI, PSW PUSH, 

DISTVECT CALL, 

LOOKASS CALL, 

VIRGIN Y A LDX, A ANA, OO, IF, 0 VIRGIN Y MVIX, VIRG JMPR 
THEN, 

( AM 1 AT THE END OF THIS PATH? ) 

TBDEST TCHGSTAT Y BITX, GOHM JRZ, ( NO - KICKOUT ) 


BLK” 2 

0!( MORE ) 

1!LABEL VIRG 

21X PUSHX, H PUSH, D PUSH, B PUSH, ( GRAB PARMS FROM LDR ) 
3!NOWR B LXI, Y PUSHX, H POP, B DAD, XCHG, 

4! AHEAD Y L LDX, AHEAD 1+ Y H LDX, ( HL= FI... ) 

5!H PUSH, X POPX, 

6 SB DAD, POSLEN B LX I, LDl'R, 

7!( SET HOS DISTANCE TO N UNITS LESS THAN LEADER ) 

8!DISTANCE 1+ X A LDX, DISPF X 3UBX, OC, IF, A XRA, THEM, 

91A DISTANCE 1+ Y STX, A XRA, A DISTANCE Y STX , 

10!TBDEST TCHGSTAT Y RESX, ( DON'T ALARM TERSE ) - 

USB POP, D POP, H POP, X POPX, 

12!LABEL GOHM PSW POP, RET, ASSEMBLE? —> 

13! 

14 ! 

15! 











FILE * HF 
BLK= 3 

0!( FOLLOW MONSTER ROUTINE ) 
liSUBR MONFOLLOW DI, B PUSH, 

21Y PUSHX, H POP, NOWR B' LX I, B DAD, XCHG,. 

3!SNATCHER Y L LDX, SNATCHER 1+ Y H LDX, B DAD, 

4!SNATLEN B LXI, LDIR, A XRA, A DELTADIST Y STX, 

5!A DELTADIST 1+ Y STX, 

6!CALCXY CALL, 

71B POP, PSW POP, RET, 

O * _ _ *v ’ 

O J " 

9 ! ' 

1 . 0 ! 

11 ! 

12 ! 

13! 

14! 

15! 

Bl_K= 4 

0!( SPECIAL MASTER VECTORING ROUTINE FOR HOSTAGES > 

1 ! 

2!SUBR HOSTAGEVECTOR PSW PUSH, 

3!HOSSV Y A LDX, HSATM CPI, MONFOLLOW JRZ, 

4!ASSMSV Y A LDX, A ANA, 

5 ! GO, IF, PSW POP, HASS IM JMP , 

6 !THEN, PSW POP, DISTVECT JMP, 

7! 

8!CODE HVECT-ON Y PUSHX, vaddr LIYD, 

9!HOSTAGEVECTOR H LXI, L CUSVEC Y STX, H CUSVEC 1+ Y STX, 
10!TB-DVECT TVME0PT2 Y SETX, Y POPX, NEXT 

11 !-.> 

•i •■:*! 









FILE = L.FN 
Bl.K= 0 

0!( LOOK FOR NEARBY THANGS ) 

li< HL« RiC IX” SUBJ RET Z IF NEAR» NZ IF NOT ) 

2! SUBR NEARBY? NOWR X D LDX, NOWC X E LDX , 

3!D A MOV, H CMP, 0=, IF. E A MOV, L CMP, 

4!R Z, THEN, 

5!DISTANCE 1+ X A LDX, A ANA, 0=, IF, A INR, RET, THEN, 

6iNOWD X 0 LDX, H PUSH, move:node CALL, H POP, 

7!D A MOV, H CMP, RNZ, E A MOV, L CMP, RET, 

»;“» j 

9 ! ( NEARBY LIST — HL"'= TARG HL= LIST RET Z= NONE NZ= FOUND ) 
10iSUBR NEARBYLIST M E MOV, H IMX, M D MOV, H INX, 

11 ID A MOV, E ORA, RZ, D PUSH, X POPX, EXX, 

12!NEARBY? CALL, EXX, NEARBYLIST JRNZ, 

13!1 A MVI, A ANA, RET, 

14 !--> 

15 ! 

BLK= 1 

( CODE ROUTINE TO DO NEARBY CHECK ) 

( C R LIST MTC? - T ) 

CODE MTC? H POP, ( HL= LIST ) 

EXX, D POP, H POP, E H MOV, EXX, ( R,C ) 

X PUSHX, NEARBYLIST CALL, 0 H LX I, 0=, IF, H INX, THEN, 

X POPX, H PUSH, NEXT 

DATA PCONFT MONVI , M0NV2 , M0NV3 , M0MV4 , H0SV1 , H0SV2 , 
H0SV3 , H0SV4 , TRSV1 , TRSV2 , TRSV3 , TRSV4 , TV1 , 0 , 

s NOBODY:HOMES YET? 2DUP PCONFT MTC? 


O 


4 

5 

6 
7 

9 

10 
11 


13 



IF .1 ELSE 2DR0P 0 THEN ; 







FILE •» T 
BLK= 0 

0!(’PLACE TREASURE IN MAZE ) • , ' " " • 

1!TABLE‘TREASURE-MAP TRSV1 , TRSV2 v TRSV3 . TRSV4 , 0 , 


8! 

9! 

.1.0! 

11! 

J. i 

13! 

1.4! 

15! 

BLK= 1 

0!( TASK FOR A HUNK OF TREASURE > 

1 ! 

2 is TREASURE-TASK STASKS 20 RND TIMER!-ON WAIT 
3!( MAKE SELF APPEAR ) 

4!ESTPOS 

5!THEJEWEL ANIM! 18TWRITE 
6!XOR-ON ZERODXDYAXAY 
7!10 TIMEBSCALE! 

8 ! SELF MYFLAG V"'" FLAG!-ON GO DI ( TREA-S ) ZEROTIMEB 
9! 2000 IMCSCORE NULPAT ANIM! .1. TIMER!-ON GO 5 
10 ! —> 

11 ! 

12 ! 

13 ! 

14 ! 

15! 

BLK> 2 

0S< PLACE TREASURE IN MAZE ) 

1!V= THESPOT 

2!! HIDES PEICE THESPOT ! BEGIN BEGIN 
3SNC0LS RND NROWS RND .START:CHAMBER? END 
4!NOBODYsHOMEsYET? END 

5!2DUP THESPOT & NOWR OVB! THESPOT © NOWC OVB! 

6!THESPOT @ ROLL ^TREASURE NODE! THESPOT @ TREASURE-TASK 
7!s HIDEsTREASURE TOTAL-JEWELS 0 DO 
8!I TREASURE-MAP @ HIDES PEICE LOOP 5 
. '9 is TREASURES CHECK PUSHsCCR >TREASURE NODE® DUP IF 
10!DUP MYTYPE OVB® T-TYP ~ IF 

11!C JEWELS-REVEALED 1+! ) THEN 1 SWAP MYFLAG OVB! 

12iO PUSHSCCR >TREASURE NODE! ELSE DROP THEN 5 
13!: S 

14! . 









F ILE *’ RS ■ ■ .. 

BLK~ 0 ■ . 

O!( ROUTE SEARCH ROUTINE ) 

1!< VISITED MATRIX GOODIES.) 

2!DATA BITMASKS 1 B, 2,B, 4 B> 8 B, 16 B, 32 B, 64 B, 128 B, 

3! SUBR - BIT-'" D PUSH» H PUSH, A E MOV, ‘0 D MV I, BITMASKS H.LXI, 

4!D DAD, M A MOV, H POP, D POP, RET, 

51SUBR VIS? H PUSH, B PUSH, Y PUSHX, H POP, VISMAT B LX I, B DAD, 
6!E C MOV, B DAD, D A MOV, BIT'- CALL, M ANA, B POP, H POP, RET, 

71SUBR SETVIS H PUSH, B PUSH, Y PUSHX, H POP, VISMAT B LX I, 

8!B DAD, EC MOV, B DAD, D A MOV, BIT? CALL, M ORA, A M MOV, 

9 IB POP, H POP, RET, 

10!C CLEAR OUT VIS BITMATRIX ) 

11!SUBR ZAPVIS B PUSH, H PUSH, VISMAT B LX I, Y PUSHX, H POP, 

12 !B DAD, NCOLS DO, 0 M MV I, H I NX, LOOP, H POP, B POP, RET, 

13! SUBR riock-d-"" node-'- CALL, D PUSH, MPLO D LXI, D DAD, D POP, RET, 

1.4 !.> 

15 ! 

BLK= 1 

0!( GENERATE TREE ENTRYS FOR ONE ENTRY ) 

1!F= RUGLP 

2! SUBR GENTE CASSEMBLE MPLO C MV I, node'"- CALL, H PUSH, 8 B MV I, 

3 ILDAR. 7 ANI, A C MOV, 

4jBEGIN, H POP, H PUSH, B A MOV, 0 B MVI, B DAD, A B MOV, 

5! M A MOV, A ANA, OO, IF, D PUSH, moves node CALL, 

6!VIS? CALL, 0=, IF, ( GENERATE NODE ) 

7!SETVIS CALL, 

8! MYBOSS Y A LDX, A TPL X SI X , MYBOSS 1+ Y A LDX, A TP!.. 1+ X STX, 
9!E TC X STX, D TR X STX, C TD X STX, 

10!TREECK Y L LDX, TREECK 1+ Y H LDX, FORKETH CALL, ( END CHECK? ) 
It!TEL D LXI, D DADX» 

121 THEN, D POP, THEN, C A MOV, A INR, 7 ANI, A C MOV, LOOP, H POP, 
13!RET, 

14 ! ASSEMBLE?- 


BLK= 2 

O!C ADVANCE TREE ONE DEPTH DOWN ) 

1iSUBR ADVT MYBOSS Y L LDX, MYBOSS 1+ Y H LDX, 

2! H INX , H INX, M E MOV, H INX, M D MOV, 

3!GENTE CALL, MYBOSS Y L LDX, MYBOSS 1+ Y H LDX, 

4!TEL D LXI, D DAD, M E MOV, H INX, M D MOV, 

5!D INK, D A MOV, E ORA, 0=, IF, H INX, ELSE, H DCX, THEN, 
6!L MYBOSS Y STX, H MYBOSS 1+ Y STX, ADVT JRNZ, 

7!.1 X 0 MVIX, X INXX, -I X 0 MVIX, X INXX, RET, 

9! ■ 

101 

11 ! 

13! 

14! 

*1 cr i 






FltEf' == R3 
BLK= 3 ■ 

0!< FIND PATH ROUTINE ) „ 

1!( BC"TARGET R,C DE= NOWR,NOWC HL= ENDGHK IY= TREE RAM X 
2iCODE 8TARTSEARCH X PUSHX, D POP, Y PUSHX, H POP, EXX, 

3!H POP, vaddr LIYD, ZAPVIS.CALL, 

4 I A• XRA, 

5! A FNDPTR Y STX, A FMDPTR 1+ Y STX, 

6!A MYBOSS Y STX, A MYBOSS 1+ Y STX, 

7!NOWR Y D LDX, NOWC Y E LDX, 

8!L TREECK Y STX, H TREECK 1+ Y STX, 

9!Y PUSHX, X POPX, TREES B LX I, B DADX, 

10!X PUSHX, GENTE CALL, H POP, 

11!L MYBOSS Y STX, H MYBOSS 1+ Y STX, 

121—1 X 0 MVIX, X INXX, -1 X 0 MVIX, X INXX, 

13!X PUSHX, D POP, E FRONTIER Y STX, D FRONTIER 1+ Y STX, 
14!EXX, D PUSH, X POPX, H PUSH, Y POPX, NEXT —> 

15! 


BLK= 4 

0!C MORE PATH FINDER ) 

1!F= TREELP F* SCANBK F~ SCAN! 

2 ! SUBR BANGTREE CASSEMBLE 

3!FRONTIER Y E LDX, FRONTIER 1+ Y D LDX, D PUSH, X POPX, 


4!FNDPTR Y L LDX, FNDPTR 1+ Y H LDX, 

5!L A MOV, H ORA, SCAN1 JRNZ, ADVT CALL, 

6!X PUSHX, D POP, E FRONTIER Y STX, D FRONTIER 1+ Y STX, 


A XRA, 


RET, 


9 

10 
11 
12 

13 

14 

15 


BLK 

0 

1 


6 

7 

9 
10 
11 
12 

13 

14 

15 


( MORE ) 

LABEL SCAN1 0 B LX I, 

LABEL SCANBK M E MOV, C M MOV, H INX, 

M D MOV, B M MOV, H DCX, H B MOV, L C MOV, 

E A MOV, D ORA, 

OO, IF, XCHG, SCANBK JMPR, THEN, 1 A MV I, A ANA, RET, 

assemble:;- 

CODE LOOKAHEAD Y PUSHX, D POP, X PUSHX, H POP, EXX, 
Vaddr LIYD, BANGTREE CALL, 0=, IF, . 

0 H LX I, ELSE, H PUSH, 1 H L.X1, THEN, H PUSH, 

EXX, H PUSH, X POPX, D PUSH, Y POPX, NEXT 






FlLEp* RS " , ' • •• - 

BLK~ 6 ■ ‘ - 

0!( ROUTINE TO FIND BEST PATH TOWARDS TARGET > 

1 ! ( CHECK ROUTINE -- ARE WE HOME YET? ) 

2JSUBR BULLSEYE? INTR Y A LDX» D CMP, RNZ, 

3IIMTC Y A LDX, E CMP, RNZ, X PUSHX, H POP, 

4!L FMDPTR Y STX, H FNDPTR 1+ Y STX, RET, 

5!! RECON 

6!BULLSEYE? STARTSEARCH BEGIN SYNC Dl 
7!LOOKAHEAD END TRACKPTR Vi COGO 5 
8!CODE FOLLOWTRACK Y PUSHX, vaddr LIYD, 

?!TRACKPTR Y L LDX, TRACKPTR 1+ Y H LDX, 

. 10!M E MOV, H INX, M D MOV, H INX, H INX, H INX, 

HIE TRACKPTR Y STX, D TRACKPTR 1+ Y STX, M L MOV, 0 

12!Y POPX, H PUSH, NEXT ASSEMBLE> —> 

13! 

14 ! 


H MV I, 



FILE # H• ' ' 

BLK= 0 

0!’( HOSTAGE TABLE, HOSTAGE INTERCEPT CHECKER.) 

• 1!( CHECK HOSTAGE INTERCEPT WITH MONSTERS ) 

2 ! DATA MONL.JST MONO! , , M0NV2 , M0NV3 , MONV4 , 0 , 

3!HEX 0202 DECIMAL C= XYHOST 

4! < HOSTAGES INTERCEPT CHECKER-, RUNS AS HOOK ) 

5!SUBR HOS—MON? FREEZE? CALL, RNZ. EXX, 

6!MONLIST H L XI, X YHOST B L XI, CHECKsVECTOR sLIST CALL, 

7! 0<>, ' IF, 

811 MYFLAG Y MVIX, ( SET ME EATEN ) FREEZE CALL, 

91X PU8HX, D POP, E SNATCHER Y STX, D SNATCHER 1+ Y STX, 
10IY PUSHX, D POP, E MYSLAVE X STX, D MYSLAVE 1+ X STX, 
111HSATM HOSSV Y MVIX, HALTNOW CALL, 

1211 MYFLAG X MVIX, ( TELL MONSTER MOVE FLAG ) THEN, 

131EXX, RET, 

14!—> 


BL1<= 1 

01C TASK FOR A TEST HOSTAGE ) HEX 400 C= EXITVEL DECIMAL.. 

1i( V~ RECURADDR ) 

215 HOSTAGE-TASK ?TASKS DI H-H-D DISPF VB! H-TYP MYTYPE VB! 
3!ZEROTIMEB 20 RND TIMER!-ON WAIT DI 1STWRITE 
41ESTPOS ESTVALDIR BEGIN DI 0 MYFLAG VB! 

51HOSSV VB© HSFREE CASE DVECT-ON 

6 !HOS1OF ANIM! XOR-ON 10 TIMEBSCALE! 0 TIMEBMAX! 

7! MYFLAG V"'" FLAG!.ON GO 

8!ELSE HSATP CASE 
91PRTBM TIMEBMAX! 

10 1 HOS 10 ANIM! ...101 Ns LINE 
1111 VIRGIN VB! 1 TIMEBSCALE! 

12!MYFLAG V A FLAG!-ON HOS-MON? HOOK!-ON 
13!500 INCSCORE HVECT-ON GO 
14!—IS¬ 
IS! 


0!( FOLLOW MONSTER TO NEW HANGOUT ) 

1!ELSE HSATM CASE FREEZETH 
2!FLAG-OFF HVECT-ON 
3!HOOK-OFF 
4!ZEROTIMEB 

5!( FOLLOW MONSTER TO ITS TARGET POSITION ) 
6! BEGIN MYFLAG V"'- FLAG! -ON GO DI FLAG? END 
7!ESTPOS ESTVALDIR 

8!UNFREEZE HSFREE HOSSV VB! ASNOT ASSMSV VB! 
9! ELSE DROP THEN THEN THEN 0 END ,* 

10 !—> 

11 ! 

12 ! 

13! 

.1.4! 

15 ! 









FJLE = H 
BLK- 3 

0!( PLACE HOSTAGES IN MAZE ) 

1!s HIDE:HOS THESPOT ! BEGIN BEGIN . 

2!NCOLS PND NRGWS RND STARTs CHAMBER? END 
3!NOBODY sHOME :YET? END 

4!THESPOT @ NOWE OVB! THESPOT @ NOWC OVB 

5!THESPOT @ HOSTAGE-TASK 5 

6! s .JAILS HOS TOTAL-HOSTAGES P DO 

7!I HOSTAB & HIDESHOS LOOP s 

S'; S 

9! 

101 
11 1 
12 ! 

13 ! 

14 ! . 

15! 




'FI'L£.-»'R 

BL!<= 0 ' ■ 

OS ( VGS interupt vector- erase VERASE VERASEWRITE > <STK 
ISSUER XOR--FLIP VOXPAND Y B LDX, VOMAGIC Y C LDX, 

2SV0PATH Y H LDX, 

3! VOPAT Y. L LDX, H INX, H I NX, ( pat off set) H PUSH, X POPX, 
4! VOSCRADRH Y H LDX, VOSCRADR Y L LDX, 

5! writer JMP, ( erase it ) 

6! 

7! 


10 ! 
:L 1 ! 
12 ! 
13! 
14! 
15! 


BLK= 1 

0S( ROUTINE TO LINK TO VGER WRITE ROUTINE > 

ISSUER WRITE-LINK 

2! VBNOWRITE VLOGICSTAT Y BITX, 0=, IF, INTCPT IN, VWRITE CALL, 
3! TBINTCPT-CHK TVMROPT Y BITX, DO, IF, INTCPT IN, 

4! A ANA, QO, IF, TBINTCPT TCHGSTAT Y SETX, 

5! TBNOVECT TVMROPT Y SETX, THEN, THEN, 

6i ELSE, VBNOWRITE VLOGICSTAT Y RESX, THEN, RET, STK> —> 


7 


10 
11 
12 

13 

14 

15 


BLK= 2 

0!( CHECK:NEAR ) 

1!DATA PCON PLYRV , M0NV1 , M0NV2 , M0NV3 , 

2!M0NV4 , TV1 , TRSV1 , TRSV2 , TRSV3 , TRSV4 
3! H0SV1 , H0SV2 , H0SV3 , I-I0SV4 , 0 , 

4 i —> 

5! 

&! 

7! 
o * 

*«» I 

9! 

10 ! 


11 ! 
12 ! 
13! 
14! 
15! 







FILE = R 

BLK= 3 • 

0!< SPECIAL WRITE ROUTINE FOR REVEALS ) 

1!HEX OCOC C= XYZONE DECIMAL 
2!F= REML F= RESL F* LISTEND 

31SUBR REVEALWRITE <ASSEMBLE 0 H LX I, H PUSH, ( MARK STACK ) 
4! ( Y PUSHX, H POP, CONFTAB D LX I, D DAD, > 

5!PCON H LXI, 

6!LABEL REML M E MOV, H INX, M D MOV, H INX, D A MOV, E ORA, 
7!LISTEND JRZ, D PUSH, X POPX, 

8! VENDERASE VLOGICSTAT X BITX, REML JRNZ, 

9! VOPATH X A LDX, VGPAT X ORAX, REML JRZ, 

10 ! 

11 ! —> 

12 ! 

13! 

14! 

15! 

BL.K= 4 • 

0!( MORE OF SPECIAL WRITE ROUTINE FOR REVEALS ) 

1!XYZONE B LX I , 

2 ! PROXIMITY--CHECK CALL, REML JRZ, 

3!X PUSHX, H PUSH, Y PUSHX, X PUSHX, Y POPX, XOR-FLIP CALL, 

4!Y POPX, H POP, REML JMPR, 

5!LABEL LISTEND WRITE-LINK CALL, 

6!LABEL RESL D POP, D A MOV, E ORA, transition JZ, 

7!Y PUSHX, D PUSH, Y POPX, 

8!XOR-FLIP CALL, Y POPX,' RESL JMPR, 

9!ASSEMBLE> —> 

10 ! •—> 

11! 
i ! 

13 ! 

.1.4 ! 

15! 

BLK= 5 

Oi< TASK TO REVEAL PARTIAL PASSAGEWAY ) 

1 ! HEX 

. 2! 400 C-~ INITI AL#LEAP 8 C= MAXREVDIST 

3!100 C= REVVEL 4 C= SHORTGOAL 
4!s OTHERS REVEAL ;TASKS DI 

5!ESTPOS DEPARTS MODE INITIAL#LEAP DISTANCE V! ■ 

6!REVVEL BELTADIST V! 

7!8 XPAND!-ON 
8!REVEALPAT ANIM! 

9!OR-ON PRTBM TIMEBMAX! 

10i1STWRITE DVECT-ON 

11!MAXREVDIST MAXDIST VB! REVEALWRITE ZOO ? 

12!DECIMAL --> 

13! 

14! 

15! 








FILE = R 
BU<= 6 

Oj< STUFF TO SENDOFF OTHER REVEALS > 

1!< VECTOR# INDEX!VECTOR - VECTORADDRESS ) 

2!! INDEX!VECTOR REVL # RVOV SWAP - ? 

3!! START:OTHER:REVEALS 
418 0 DO PUSH!CCR I TEST!REL 
Si IF PUSH!CCR I TEST!DRAWN 
6 I NOT IF 

7iPUSH!CCR I INDEX:VECTOR NOWR OVB! 

Si I INDEX:VECTOR NOWC OVB! 

9! I I INDEX: VECTOR NOWD OVB'! 

1011 INDEX!VECTOR OTHER:REVEAL DI 
11!THEN THEM LOOP ? —> 

12 ! 

13 ! 

14 ! 

3.5! 


BLK= 7 

0!( HEADLIGHT REVEALER ) 
1!HEX : HEADLIGHT:REVEAL 


TASK: 


DI 


2! NOWC PLYRV OVB© NOWC VB! NOWR PL..YRV OVB© NOWR VB! 

3!NOWD PLYRV OVB© NOWD VB! ESTPOS DEPART:NODE 
4!MAXDIST VB© SHORTGOAL - MAXDIST VB! 

5!REVEALPAT ANIM! OC XPAND!-ON OR-ON 1STWRITE PRTBM TIMEBMAX 
6!INITIAL#LEAP DISTANCE V! REVVEL DELTADIST V! DVECT-ON 
7 IREVEALWRITE ZGO DI 


«• 

10! 

11 

1 

13' 

3.4 

13 


BLK= 8 

0;< MORE HEADLIGHT REVEALER ) 

11 PUSH:CCR NOWD VB© TEST:DRAWN NOT IF 

2!REVEALED-PATHS 1+! ( INCREMENT # OF PATHS REVEALED ) 

3!THEM 

4!PUSH!CCR NOWD VB© SET:DRAWN 

5!ARRIVE:NODE PUSH:CCR NOWD VB© COM 7 AND SET:DRAWN 
6 I PUSH:CCR TEST:GROTTO:DRAWN NOT IF 
7!START:OTHER:REVEALS 

8!GROTTOPAT ANIM! 1STWRITE OC XPAND!-ON 
9 i ( CHECK: NEAR )' TOTAL.-REVEALED-GROTTOS 1+ ! 

3.0! 1 TIMER!-ON REVEALWRITE ZGO PUSH: CCR SET: GROTTO: DRAWN THEN 
11!DECIMAL —> 

3.2 ! 

3.3! 

14! 

15 ! 








FILlg « R. 

BL.K- 9 ’ 

0!( REVEAL FIRST CHAMBER ) 

If HEX. BV~ UNROLL. 

2 ! : INITIALS REVEAL ?'TASK: 

3!PLYRV NOWR OVB© NOWR VB! 

4SPLYRV NOWC OVB@ NOWC VB! ESTPOS DVECT-ON 
5!START s OTHER5 REVEALS 

6 i GROTTOF'AT ANIM! 1STWRITE OC XPAND! XPAND-ON OR-ON 

7 ! 1 TIMER ! -ON REVEAL.WRITE ZOO PUSH s OCR SET s GROTTO: DRAWN 
8!18 UNROLL B! 

91 BEGIN 1 TIMER!-ON WAIT UNROLL B@ DUP VERBL OUTP 4 + DUP 
10!UNROLL B! ODD ~ END 5 
111 

12!DECIMAL —> 

13 1 
141 
15! 



FILE = K 
BLK= 0 

0!( KEY MONITOR - WAIT FOR N CHAMBERS TO BE REVEALED ) 
1! . 

2 !s KEY-TASK 5 TASK: K-TYP MYTYPE VB! 

3,1 BEG IN 30 TIMER I-ON WAIT. DI 

4!TOTAL-REVEALED-GROTTOS @ KEY-THRESHOLD @ > END 
51 BEGIN BEGIN 

6 !NCOLS RND'NROWS 2- RND START:CHAMBER? END 
7!NOBODY:HOME sYET? END 
S1N0WR VB! NOWC VB! 

9!SELF PUSH:CCR ^TREASURE NODE! 

10 ! —> 

1.1 ! 

12 ! 

13! 

14! 

13! 


01( KEY REVEALER ) 

1. 1 ESTPOS 

2!KEYPAT ANIM! 1STWRITE XOR-ON 
3 1 MY FLAG V"'" FLAG !-ON DVECT-ON GO DI 
41< KEY-S ) ’ 

5i< NOW REVEAL EXIT CHAMBER ) 

6 1 BEGIN 

7!STOP-COL B© NOWC VB! START-ROW NOWR VB! ESTPOS 
81GROTTOPAT ANIM! PLEASE-UPDATE 
91XOR-ON XPAND—ON 8 XPAND! 30 TIMER!-ON GO DI 
10 1 —> 

11 1 
121 


BLJ<- 2 


0 

1 


( REVEAL THE EXIT CHAMBER ) 
GROTTOPAT ANIM! 13TWRITE 12 


XPAND! 


21ESTPOS 

312 TIMER!-ON REVEAL. WRITE ZOO DI 
41 BEGIN ESTPOS 


51GROTTOPAT ANIM! 

61 1STWRITE XOR-ON XPAND-ON 8 XPAND! 
7 1 — > 


XPAND-ON OR-ON 


20 TIMER!-ON GO DI 









FILE ** K 

BLK* 3, , . : 

0!( MORE EXIT REVEALER AND KEY HIDER > 

1!PLYRV NOWC OVB@ NOWC VB@ = IF 
21 PLYRV NOWR GVB<3 NOWR VB@ * IF 
3!STOPme 1+B! NOBREAK BZERO 
4!THEN THEN 
510 END ? 

61s HIDES KEY BEGIN BEGIN 

71NC0LS RMD NROWS 2- RND STARTsCHAMBER? END 

8!NOBODY!HOMEsYET? END 

912DUP TV1 NOWR OVB! TV! NOWC OVB! 

10!TV1 ROLL ^TREASURE NODE! TV1 KEY-TASK ? 

Ill —> 

12 1 
.131 
14! 

151 


BLK= 4 

01( ROUTINE TO END GAME ) 

11s END -GAME 5 TASK5 

.210 BEHIND PLYRV 0V@ BEGIN DUP WHILE SWAP 5000 + SWAP 
31 BEHIND OV® REPEAT DROP INCSCORE 60 TIMER!-ON WAIT 
41STOPme 1+B! NOBREAK BZERO ? 


7 


10 
11 
12 


14 

.15 






FILE * P 
BLK= 0 

0i( JOYSTICK ROUTINES 5 

1 ! HEX ( BV= JOYCODE BV= JOYLAST ) ( D800 DP I *****####*#**###* ) 

2! DATA JOYTBL -I B, ~1 B» -1 B, --1 B, "1 B, 0 B, 5 B, -1 B, 

31-1 B, 2 B, 7 B, ~1 B, -1 B, -1 B, -1 B, -*1 B, 

4! - I B. 1 B, 6 B, -1 B, 3 B, 0 B, 5 B.- -1 B, 

5! 4 B» 2 B, 7 B, -1 B» -1 B, -1 B, -1 B, ~1 B, 

6!( SUBR MYINTR PSW PUSH, H PUSH, 12 IN, CMA, IF ANI, 

7! JOYLAST H LX I, li CMP, A M MOV, OO, IF, IF A MV I,. THEN, 

8!JOYCODE STA, H POP, PSW POP, SUI1 JMP, ) 

91SUBR get:J ovcode 12 IN, CMA, IF ANI, A E MOV, 0 D MVI, 

10!JOYTBL II LX I, D DAD, M A MOV, A ANA, RET, 

11iCODE GETSJOYCODE . 

12112 IN, CMA, IF ANI, A E MOV, 0 D MVI, JOYTBL H LX I, 

13 ID DAD, M A MOV, A ANA, OC, IF, 0 H LXI, ELSE, 

141A E MOV, D PUSH, 1 H LX I, THEN, H PUSH, NEXT 

151 DECIMAL —> 

BLK= 1 

0!( NEW SCAN ADJUSTER ) 

1!DATA CCWTBL 3 B, 0 B, 1 B, 5 B, 2 B, 6 B, 7 B, 4 B, 

2! DATA CWTBL 1 B, 2 B, 4 B, 0 B, 7 B, 3 B, 5 B, 6 B, 

3'F= sc: a nr F~ no go 
4 I SUBR ad j --scan <ASSEMBLE 

5!H PUSH, 0 B MVI, B DAD, M A MOV, A ANA, 

3!scam- JRZ, H POP, C A MOV, RET, 

7!LABEL seanr CCWTBL H LX I, B DAD, M E MOV, 0 D MVI, 

8!H POP, H PUSH, D DAD, M D MOV, 

9!CWTBL H LX I, B DAD, C A MOV, M C MOV, H POP, B DAD, 

10!A B MOV, M A MOV, 

11! A ANA, OO, IF, D A MOV, A ANA, noso JRNZ, 

121C A MOV, RET, THEN, D ORA, noso JRZ, E A MOV, RET, 

13!LABEL noso B A MOV, RET, 

14 ! ASSEMBLE! - :* 

15!-.■> 


BL.K" 

O 

1 

o 

4 

5 

6 
7 

C‘ 

Cr 

10 
11 
12 

13 

14 

15 


< MORESTUFF ) 

CODE ADJ-SCAN EXX, B POP, H POP, 

add-scan CALL, A L MOV, 0 H MVI, H PUSH, EXX, NEXT 



5 ^ r 








FILE - P * 

BLI<= 3 

0!C INTERRUPT LEVEL JOY MONITOR ) 

1!BV= OBJECT-MOVING 

2!SUBR JOYCHECK OBJECT-MOVING LDA, A ANA, RZ, 

3'TBDEST TCHGSTAT V BITX, RNZ, DISTANCE 1+ Y A LDX, A ANA, RZ, 
4 I seir" j oYCode CALL, 

5!0C, IF, ASSMSV Y A LDX, ASCOOL CPI, OO, IF, 

610 H LX I , PLYRV DELTADIST + SHLD, THEN, RET , 

7!THEN, PLAYERVELO LHLD, PLYRV DELTADIST + SHLD, CMA, 7 ANI, 

8!NOWD Y CMPX, RNZ, 

9!REVERSEsDIRECTION CALL, HALTNOW CALL, 

10!NOWD Y A LDX, RRC, RRC, RRC, A VANGLE Y STX, RET, 

11!SUBR PLAYER-MONITOR JOYCHECK CALL, PILOTC CALL, RET, 

12 !—> 

13! 

14! 

15 ! 


BLK= 4 

0!( PLAYER HOSTAGE 
1!F= DISH 


INTERFACE JUNK 


) 


SUBR dishes <ASSEMBLE 0 HOSTAB H LX I, 

LABEL DISH M E MOV, H INX, M D MOV, H INX, D A MOV, E ORA. 
XCHG, HOSSV B LXI, B DAD, M A MOV, HS'ATF' CPI, 0=, IF, 
HSFREE M MVI, MYFLAG HOSSV - B LXI, B DAD, 1 M MVI, THEN, 
XCHG, DISH JMPR, ASSEMBLER- 

CODE DISHOS B PUSH;, dishes CALL, B POP, NEXT 
CODE HALTER HALTNOW CALL, NEXT 



11 
12 
1 8 
14 


RZ 


BL..K= 5 

0!C CHECK VECTOR FOR INTERCEPT WITH OTHER VECTORS ) 

1!( ROUTINE TO FIND INTERCEPTORS, IF AMY ) 

2!( ENTRYs BC- NEARNESS X AND Y, HL= CHECKLIST ADDR ) 
3!( IY= SUBJECT VECTOR > 

4! ( RETURNS 2> NOFIND NZ= FIND, IX= FOUND THANG ), 
5!F= C 5IJH 

6!SUBR C sU s H CASSEMBLE 
7!LABEL C s UH 

8!M E MOV, H INX, M D MOV, H INX, D A MOV, E ORA, • 

9!RZ, D PUSH, X POPX, 

10!HOSSV X A LDX, HSFREE CPI, 0=, IF, 

11!PROXIMITY-CHECK CALL, RNZ, THEN, Cs UH JMPR, 

12! ASSEMBLER- 

14! 

; 15 ! 









F-ItiS'. «• P' ' ■ . ■ 

BLk* 6 ' ; 

Oil CHECK PLAYER INTERCEPT WITH OTHER VECTORS ) 

110 0* EATEN 1 C= EATHOST 

21 DATA CHECKLIST HONVI , M0NV2 , M0NV3 , H0NV4 , 0.» 

31 HEX 0202 DECIMAL C= XYBOUNDS 
4!( PLAYERS INTERCEPT CHECKER, RUNS AS HOOK ) 

5SSUBR PLAYER:INTERCEPT:CHECK FREEZE? CALL, RNZ, EXX, 

6!CHECKLIST H LX I, XYBOUNDS B LX I, CHECK:VECTOR:LIST CALL, 
7100, IF, 1 A MVI , PLAYERDEAD STA, FREEZE CALL, 

81 EATEN FLAGCODE X MVIX, A MYFLAG X STX, < SET EATEN FLAG ) 
913 A MVI, 4 OUT, ELSE, 

101( ANY HOSTAGE ABOUT? ) 

1110 HOSTAB H LXI, XYBOUNDS B LX I, C*U«H CALL, 

12100, IF, 1 MYFLAG X MVIX, HSATP HOSSV X MVIX, THEN, 

131A XRA, THEM, 4 OUT, 

141EXX, RET, 

is ;••-•-> 


01( CHECK VMAX SWITCH ) 

1 1 HEX 

21 CODE VMAX? 0 H LXI, 1.2 IN, 5 A BIT, 0=, IF, H INX, THEN, 

31H PUSH, NEXT 
4 1 

5!CODE SETVEL EXX, H POP, Y PUSHX, vaddr LIYD, 

61L DELTADIST Y STX, H DELTADIST 1+ Y STX, PLAYERVELO SHLD, 
71Y POPX, EXX, NEXT 
81 DECIMAL —> 

9 1 
101 
11 1 
121 
131 
141 
151 


BLK* 8 

01( EXPLORE-MAZE ) 

11 HEX 200 C* PSPDH 180 C* PSPDM 100 C= PSPDL DECIMAL 
21: EXPLORE-MAZE 5 TASK: DI 
3 1 H--P--D DISPF VB ! ESTPOS 

41PLAYERANIM ANIM! XOR-ON 1STWRITE PRTBM TIMEBMAX! BEGIN DI 
51 PUSH:CCR, TEST:GROTTO:DRAWN IF GET:JOYCODE ELSE 0 THEM 
61 IF PUSH: CCR MPLO NODE-" SWAP ADJ-SCAN - 


7 


DUP NOWD VBe.COM 7 AND * IF HALTER THEN DUP NOWD VB! 









FILE .**, P 
BLK= 9 

Oi< MORE PLAYER STUFF ) 

1!PUSH;OCR ROT TESTSREL 
2MF. ZEROTIMEB 
3!PUSH;OCR NOWD VB@ 

41 TEST:DRAWN IF 
' 51VMAX? IF PSPDH ELSE PSPDM 
6!THEN ELSE PSPDL THEN SETVEL 
7!OBJECT-MOVING BONE 
8{DEPART:NODE 

9!PUSHs CCR NOWD VB@ TEST:DRAWN NOT IF ( MUNCH-S ) 
10!100 INCSCORE REVV HEADLIGHT:REVEAL SYNC THEN 
11 I —> 

12 ! 

13 ! 

14! 

15! 

,BLK= 10 

0!( EXPLORE-MAZE ) 

1!ELSE 0 SETVEL 3 TIMER!-ON 

2!THEN ELSE 0 SETVEL 3 TIMER!-ON THEN 

3!PLAYERsINTERCEPT:CHECK HOOK!-ON 

4!PROPDELTAS PLAYERDEAD FLAG!-ON DVECT-ON GO DI 

5!OBJECT-MOVING BZERO 

6!FLAG? IF DI ZEROTIMEB DEATHACT ANIM! BITE:DUST 

7!0 SETVEL HALTER DISHOS 

8!20 TIMER!-ON GO DI PLAYERANIM ANIM! 

9!START-COL B@ NROWS 1- SET:NEW:MCCR ESTPOS 
10!PLAYERDEAD ZERO THEN DI 
11 ! —> 

12 ! 
i o * 

.1 -..j i 

14 ! 

15! 

BLK= 11 

( YET MORE PLAYER CONTROLLER ) 

BEST? IF ARRIVE:NODE PROPDELTAS 
TREASURE:CHECK THEN 
0 END 5 DECIMAL. —> 


O 

1 


4 

5 

6 

,8 

9 

10 

11 

12 

14 

15 







FILE, Ax.IP 
BLK— * U 

O'! ( PROCESS A HOT ROD MISSUE ) 

1!BV= HOTF r LIP 
2!SUBR HOTROD , 

3! TBMl'SSLE T.STAT Y BITX, ( are we readv to process ) 

4!, RZ, < NOT A MISSLE ) 

5! ( A= t .i me ba se ) mastervmr CALL? 

6 ! VBMISWRT VLOGICSTAT’ Y BITX, ( time to write ? ) 

7! VBMISWRT VLOGICSTAT Y RESX, 

81 OO, IF, TSIJR Y L LDX, TSUR 1+ Y H LDX, FORKETH CALL, 
9!THEN, RET, 

10 !—> 

111, 

12! 

13! 

14! 

15! 

BLK= 1 
0! CSTKI-I 

ISSUER MIS-INT ( missle interrupt test ) 

2! PSW PUSH, B PUSH, D PUSH, H PUSH, EXX, EXAF, 

3! PSW PUSH, B PUSH, D PUSH, H PUSH, Y PUSHX, X PUSHX, 

4!( 12 IN, CMA, IF ANI, 

5! JOYLAST H LX I, M CMP, A M MOV, OO, IF, IF A MV I, THEN, 
6!JOYCODE STA, ) ( HOT ROD THE PLAYERS VECTOR 5 

7!HOTFLIP H LXI, M A MOV, A INR, 1 ANI, A M MOV, 

8!0=, IF, PLYRV Y LX IX, PLAYER-MONITOR CALL, 

9!ELSE, REVV Y LX IX, THEN, 2 A MVI, 

10!HOTROD CALL, 

11! SUI2-NP JMP, 

12! : MYPUP MYF'UP MIS-1 NT SUI1V ! -1 HORCB OUTP ? —> 

1.3! 

14! 

15 ! 







FILE « M 
BLK~ 0 

0!( INDEXER AND VISABLE MONSTER WRITER > 

1i• INDEX:MONSTER MONVBYTES * MONVI SWAP - 5 

.»:! i 

3! SUBR VISMONWRITE ( VISABIJE MONSTER WRITER ) 

4! VBNOERASE VLOGICSTAT Y BITX, 0=, IF, 

5! VOPATH Y A LDX, VOPAT Y ORAX, OO, IF', 

61 VERASE CALL, THEN, ( don■" t erase , if no pattern ) 

7! ELSE, VBNOERASE VLOGICSTAT Y RESX, THEN, 

8! VBNOWRITE VLOGICSTAT Y BITX, 0=, IF, INTCPT IN, VWRITE CALL, 

9! TBI NT CPT-CHK TVMROPT Y BITX, OO, IF, INTCPT IN, 

10! A ANA, 0=, IF, TBINTCPT TCHGSTAT Y SETX, 

.1.1! TBNOVECT TVMROPT Y SETX, THEN, THEN, 

12! ELSE, VBNOWRITE VLOGICSTAT Y RESX, THEN, 

13! t ran s i t; i o n JMP, STIO •—> 

14! 

15! 

BLK= 1 

0!( MONSTER STUFF ) 

1 !DECIMAL 

2!C s NOMONST ZERODXDYAXAY 10 TIMER!-ON STAY!PUT ; 

3!; BANISH!MONSTER BEGIN BEGIN NCOLS RND DUP INTC VB! 

4!NOWC PLYRV OVB© - ABS 2 > END BEGIN NROWS RND DUP INTR VB! 

5!NOWR PLYRV OVB© - ABS 1 > END INTC VB© INTR VB© NOBODYsHOME!YET' 
6! END 2DR0P 5 

7!! MONGO INTERCEPT-ON DVECT-ON 

8!VISFLAG VB© IF MYFACE V® ANIM! VISMONWRITE ZOO DI 
9!INTERCEPT? IF 0 VISFLAG VB! THEN 
10!ELSE EYEBALLS-PAT ANIM! GO DI INTERCEPT? IF 1 VISFLAG VB! THEN 
11!THEN COGO 5 

12!! FREESLAVE DI MYSLAVE V® IF MYSLAVE V® MYFLAG + BONE 
13!( 0 MYSLAVE V© SNATCHER + ! 

14!0 MYSLAVE V! THEN ; 

BL.K= 2 

0!( MORE MONSTER STUFF ) 

1!( COMPARE POSITION IN D AND E WITH POSITION IN VECTOR ) 

2! C SUBR compos D A MOV, NOWR Y CMF'X , RNZ, 

3!E A MOV, NOWC Y CMPX, RET, ) 

4!CODE CHASEPLAYER EXX, X PUSHX, Y PUSHX, 

5!PLYRV X LXIX, vaddr LIYD, 

6!NOWR X D LDX, NOWC X E LDX, NOWD X C LDX, 

7 ! rri o vein o cl e C ALL, 

8!movecheck CALL, CY, IF, 

9! D INTR Y STX, E INTC Y STX, THEN, EXX, Y F'OPX, X POPX, NEXT 
10!( GO ANYWHERE I AM NOT NOW ) 

Ills VAMOOSE BEGIN NCOLS RND INTC VB! NROWS RND INTR VB! 

12 ION!TARGET? NOT END 5 

14! 

15!' 













FILE"** M , ■ ■ - 

BLK-- 3 . 

OS( MONSTER TASK > 

I I HEX 60 C= MONVEL 

2!! MONSTER-TASK ;TASKS DI 
3!RETURN:INITIAL: POSITION 
4!ESTPOS 

5! MY FACE V© ANIM! XOR--ON 1ST WRITE BEGIN DI 
6! ON: TARGET? IF SMARTS B@ RND IF CHASEPLAYER 
7!ON:TARGET? IF VAMOOSE THEN ELSE VAMOOSE THEN 
S\' RECON SETCO COGO DI ZEROTIMEB 
9!THEN FOLLOWTRACK NOWD VB! 

10!MONVEL DELTADIST V! DEPART:NODE 
Hit HAVE MONSTER CRAWL ABOUT ) 

121 BEGIN MYFLAG V'- FLAG ! -ON 
131- MONGO SETCO COGO DI 
141—> 

151 

BLK= 4 

OK BANISHMENT STUFF ) 

II FLAG? IF 0 DELTADIST V! 

2!BANISH:MONSTER INTC VB© BANC B! 

31INTR VB© BANR B! 

41 - RECON SETCO COGO DI 
510 MYFLAG VB! FLAG-OFF 

6 1( WANDER BACK TO WHERE MONSTER LAST CAME FROM ) 

71 BEGIN ESTPOS ZEROTIMEB 

8 1'ONs TARGET? NOT IF FOLLOWTRACK, NOWD VB ! 

91 DEPART:NODE EX ITVEL DELTADIST V! 

101 BEGIN •- MONGO SETCO COGO BEST? END ARRIVE: NODE 0 
111 ELSE 1 THEN END 
121FREESLAVE 

131 UNFREEZE 3 ELSE 0 BEST? IF ARRIVE:NODE DROP 1 THEN THEN 

14 1.> 

151 







FILE' * M ; 

BLK= & 

OM MONSTER MASH ) 

11BTABLE MRTBL 0 B, OB, 2 B, 2 B, 

2iBTABLE MCTBL 0 B, .NCOLS 1~ B, 0 B, NCOLS 1- B, 

31 s. MONSTERMASH MONSTERCOUNT @ 0 DO I ■ MCTBL. B@ T MRTBL B@ 
411 INDEX 5 MONSTER SET!INITIALsMCCR THESPDR 
511 INDEX?MONSTER MYFACE OV! I INDEX:MONSTER MONSTER-TASK 
6 1 LOOP ; 

7,1 —> 

SI 
91 
101 
11 1 
121 
13 1 

. 141 ■ ' • 





•#|LE » E ' 

BLK= 0 

0!< PREVOER ACTIVITY ) 

11 HEX : EXP E-C MYPUP XDI SPARKLES-GFF CLEAR:SCORES ZAP:VE 
218 0 DO 81 OUTP LOOP 

.314 DUP REMAININO-LIVES 1 INITIAL-LIVES ! 

. 4!GAME-OVER ZERO 

51 GAME# ZERO 

■■■'• 61 BEGIN TOTAL-PATHS ZERO 
71 CHEAPRND 0 RND# ! 

81 MAKE:MAZE ( MAKERM ) ( MAKE DELTAS ) MD 
91SCRERASE 
101 BLUERILL 
11 1 —> 

121 

131 , 

141 

15! 

BLK* 1 

01( MORE EXPLORE ) 

11DI MYPUP ( MYINTR BAKIV ! ) ( AMUSE ) 

2118 VERBL OUTP -1 HORCB OUTP 
31 BREAK NOBREAK BONE ZAPsVECT 
41 ( TIME-BARS ) 

51 CLEAR:SCORE:VECTORS 
61 HIDE:TREASURE JAIL:NOS 
7 INPLAYERS ZERO PLAYERUP ZERO 

81REVEALED-PATHS ZERO 1 TOTAL-REVEALED-GROTTOS ! 

10! 

Ill 
121 
13 1 
14! 

151 


01( PRE VGER ACTIVITY > 

1 1 START -COL @ DUP PLYRV NOWC OVB! 


21REVV NOWC OVB! 

31 START-ROW DUP PLYRV NOWR OVB! 

41REVV NOWR OVB! PLAYERDEAD ZERO 

513,GAME# @ + 4 MIN M0N8TERC0UNT ! ( GAME# @ DUNG# B! 

61DUNG-S ) GAME# © 1+ 4 « 26 MIN KEY-THRESHOLD ! 

7!GAME# @ 1+ SMARTS B! FREEZEFLAG BZERO 
81P1SV DISPP1SCR P2SV DISPP2SCR 
91BKGV INITIAL:REVEAL 

10!PLYRV EXPLORE-MAZE ( JOYV JOYSTICK-MONITOR ) 


111 MONSTERMASH TV1 KEY-TASK 


121DISPLAY:REMAINING:LIVES 8 7 
13 1 - J' 


OUTP 


14 

15 








0! < ' YET MORE ‘ ) 

HIT OWE# 1,+! NOBREAK B@ DUP 0= l'F BI MYPUP 0 TVVS 
2! BREAK TV.1 END-GAME TT THEN 
31 < 8 0 DO 8 I OUTP LOOP ) 

4!GAME-OVER B@ OR ( EMUSIC ) END E-C 5 
5! DECIMAL. —> 

61 

7! 

81 

91 

101 


11 1 
121 
131 
141 
151 


LK= 4 

01( THE MASTER VIDEO GAME VERBS ) 
1 1 



TVVt F 


V>o- 

AO 

co 

lot) 


VO EXP ! 


